Select Code to Download

my %ret;
if ( defined( $rv ) and @$rv )
...
                map { %{$ret{$$_{name}}->{$$_{project}}={$$_{result}}}
+} @$rv;
        }
return %ret;

my ($value1, $value2);
foreach (sort keys %hash)
...
}
print "$value1\n";