use strict;
use warnings;


our @a = qw(a b c d e);

{
    local @a = @a;
    while( my( $i, $e ) = each @a){
        print "$i => $e\n";
        last if $i == 2;
    }
}

print "-----------------------\n";

while( my( $i, $e ) = each @a){
    print "$i => $e\n";
}