Select Code to Download

#! /usr/bin/perl -w
# Set up some stuff for this example
...

# Show that it worked
print Dumper(\%hash);

my $hash;

my $work = \$hash;
$work = \$$work->{$_} for @levels;
$$work = $value;

$hash{join(",", @levels)} = $value;