Select Code to Download

#!/usr/bin/env perl

...

print "ID for MORE[foo]: $dat_by_id{$map_more_to_id{foo}}{id}\n";
print "SN for MORE[bar]: $dat_by_id{$map_more_to_id{bar}}{sn}\n";

SN for ID[1]:     a
ID for SN[b]:     2
MORE for SN[a]:   foo
ID for MORE[foo]: 1
SN for MORE[bar]: b