my @array = (2,3,4);
my $value = shift(@array); # now the array contains (3,4)
print "value is $value";