Select Code to Download

my $ref = {thing => 'value', otherthing => 'other'};
%alias_to_ref = ;# insert magical code here
...
$alias_to_ref{thing} = 'newvalue';

print $ref->{thing};

#!/usr/local/bin/perl -w
use strict;
...
    my $ref = shift;
    return bless($ref, $package);
}