Select Code to Download

use warnings;
use strict;
...

    my $x = sprintf $thing, @HR;
}

$VAR1 = {
          '$blah' => 99,
...
                     3
                   ]
        };