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