Select Code to Download

my $newhashref = {};
...
}

my $ref_to_onelevelhash = rechash $ref_to_multilevelhash;

#! \usr\bin\perl

...
 print "\n",$_," is ",$refnewhash->{$_};
};