c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my @array1 = (1,2,3,4,5);
 my @array2 = @array1[ 0, 1 ];
 dd \@array2;
"
[1, 2]