Select Code to Download

my %reversetbl;  # at the beginning

...
for my $k (keys %reversetbl) {
    print $k, ';', join(',', keys %{ $reversetbl{$k} } ), "\n";
}