use vars qw[ @foo1 @foo2 ];
use Data::Dumper;

{
   my $bar = 666;
   @foo1 = $bar;
}
{ @foo2 = 666;
  @foo1 = 123;
}

die Dumper( \@foo2, \@foo1 );
__END__
$VAR1 = [
          666
        ];
$VAR2 = [
          123
        ];