Array Perl

#!/usr/local/bin/perl 
@array = (1, 2, 3, 4); 
@subarray = @array[1,2]; 
print ("The first element of subarray is $subarray[0]\n"); 
print ("The second element of subarray is $subarray[1]\n");