Select Code to Download

my %drink;
# other attribute hashes
...
      $hashref->{$key} = $value;
   }
}

set('larry', 'drink', 'Old Speckled Hen');

print "$drink{$key}\n";