Something strange with $_

use Data::Dumper;
use Git::Repository;
use strict;
my @repos;
setupRepos();

sub setupRepo{
        my $repo=shift;
        system("rm -rf $repo->{src}");
        system("rm -rf $repo->{dest}");
        system("mkdir -p $repo->{src}");
        system("mkdir -p $repo->{dest}");
        Git::Repository -> run(init=>{cwd=>"$repo->{dest}"});
        my $dest = Git::Repository -> new(work_tree=>"$repo->{dest}");
        Git::Repository->run( clone => $repo->{url} => $repo->{src} );
        my $src = Git::Repository->new( work_tree => $repo->{src} );
        my $srccmd=$src->command(log=>"--pretty=oneline","--reverse");
        my $srclog=$srccmd->stdout;
        my @sha;
        print "[setupRepo GITTING]".Dumper \@repos;
        while(<$srclog>){
        print "[setupRepo LOGING]".Dumper \@repos;
        return;
        }
}
sub setupRepos {
        my $bitRepo={
                src=>'clones/bitsync',
                dest=>'repos/bitsync',
                url=>'/prj/dyumnin/designw.in/hdl/common-bitsync'
        };
        @repos=($bitRepo);

        foreach (@repos){
setupRepo($_);
        }
        print "[Outside ]".Dumper \@repos;

}
#####################################
# Output
######################################
#Cloning into 'clones/bitsync'...
#done. at t/bug.pl line 15.
#[setupRepo GITTING]$VAR1 = [
#          {
#            'dest' => 'repos/bitsync',
#            'src' => 'clones/bitsync',
#            'url' => '/prj/dyumnin/designw.in/hdl/common-bitsync'
#          }
#        ];
#[setupRepo LOGING]$VAR1 = [
#          'd51169cae8b8a744daf957d2e8dff60214204baa Initial functional version of bitsync.
#'
#        ];
#[Outside ]$VAR1 = [
#          'd51169cae8b8a744daf957d2e8dff60214204baa Initial functional version of bitsync.
#'
#        ];