Select Code to Download

...
if ( $line =~ s/ \$VAR1/ my %hash / ) {
    ...
}
...

my %hash = (...);
$Data::Dumper::Varname = 'hash';
print Dumper(\%hash);

my %hash = (...);
print Data::Dumper->Dump( [\%hash], ['hash'] );