my @foo = ( 0..9 );
for ( @foo ) {
    my $shift = shift @foo;
    print "\$_: $_\t\$shift: $shift\n"; 
}