Select Code to Download

my %hash;
while( <> ) {
...
    my @keys = split /\*/, $front;
    eval( '$hash' . ( join '', map { "{'$_'}" } @keys ) . "=" . $back 
+);
}