my @array = qw(1 2 3 4); 
shift @array;
shift @array;
print $_,qq~\n~ for @array