my @array = (2, 4, 6, 8);

my $first = shift @array;
# $first is 2
# @array is (4, 6, 8)

my $second = shift @array;
# $second is 4
# @array is (6, 8)
# $array[0] is 6
# $array[1] is 8