#!/usr/bin/perl -w
                                                                                
# Strict
use strict;
use warnings;
                                                                                
# Libraries
use Carp;
use Data::Dumper;
                                                                                
                                                                                
my %drink;
# other attribute hashes
                                                                                
set('larry', 'drink', 'Old Speckled Hen');
print $drink{'larry'}, "\n";
# print "Dump(\%drink) => [%s]\n", Dumper(\%drink);
                                                                                
                                                                                
sub set {
   my ($key, $attr, $value) = @_;
                                                                                
   my $hashref;
   eval "\$hashref = \\\%$attr";
                                                                                
   if ( !defined $hashref ) {
      carp 'Invalid attribute name';
   }
   else {
      $hashref->{$key} = $value;
   }
}