Select Code to Download

$VAR1 = 'summary';
$VAR2 = {
...
          '29 ' => 2,
          '40 ' => 2
        };

for (@{$hash->{'prefix'}}) { 
     print "$_\n";
}