Select Code to Download

for my $key (keys %mappings) {
    for (keys %{$mappings{$key}}) {
...
        print "$key - $mappings{$key}{$_} -> $_\n" ;
    }
}

lung cancer - 2 -> some cancer
cancer - 4 -> foot cancer