#!/usr/local/bin/perl -l
my @a = 1, 2, 3 , 4, 5;
my @b = splice(@a, 3);
print @b;