Select Code to Download

$hash = test::this(\%hash); 
for my $box (keys %{$hash}){ 
...
    }

}

sub this 
{
...

return \%temp;
}