Select Code to Download

#! perl
use strict;
use warnings;
...
}

print Dumper \%results;

$VAR1 = {
          '01' => [
                    'yadda 01 abc',
...
                    'yadda 02 azdfbc'
                  ]
        };