Select Code to Download

my @AoA;
my %HoAoA;
...
  push( @{ $HoAoH{$fields[0]} }, { email => $fields[1],
                                   result => $fields[2] } );
}

$VAR1 = [
          [
...
            'Host not found'
          ]
        ];

$VAR1 = {
          'jack' => [
...
                       ]
                     ]
        };

$VAR1 = {
          'jack' => [
...
                       }
                     ]
        };