my @foo = ( 0..9 );

my $offset = 0;
print "Array: @foo";

for ( @foo ) {
    my $shift = shift @foo;
    print "\n\$offset: $offset\t\$_: $_\t\$shift: $shift\n\n";
    print "Array: @foo";
    $offset++;
}