Select Code to Download

my %result;
for my $key (keys %pr1, keys %si1) {
...
    push @values, @{$si1{$key}} if $si1{$key};
    $result{$key} = join ', ', @values;
}