Select Code to Download

use strict;
use warnings;
...
push @{$rHash{$hash{$_}}}, $_ for keys %hash;

Dump (\%hash, \%rHash);

$HASH1 = {
           cheeseBurger       => 'burger',
...
                         'tomatoSandwich'
                       ]
         };