perl -MData::Dumper -e 'my @list = qw(1 2 3 4); print Dumper [splice (@list, 0,2)];'