#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper::Simple;

my %hash;

while(<DATA>){
  chomp;
  my @array = split /\s{2,}/;
  $hash{$array[0]} = { $array[1] => $array[2] };
}

print(Dumper(%hash));
[download]

Since the values in $array[0] are not necessarily unique, this potentially replaces the contents of $hash{$array[0]}. You need a HoAoH, or some variant thereof.

Output (note the single entry for 'jennifer', for example):

$VAR1 = {
          'jack' => {
                      'JHuffman@pulsetech.net' => 'cannot find your ho
+stname'
                    },
          'jobs' => {
                      'kwillis@cors.com' => 'Host not found'
                    },
          'jennifer' => {
                          'Warranty@onlogixx.com' => 'cannot find your
+ hostname'
                        },
          'tim' => {
                     'millionairemaker@freshcornam.com' => 'cannot fin
+d your hostname'
                   },
          'susan' => {
                       'linda@kepro.com.tw' => 'cannot find your hostn
+ame'
                     },
          'russ' => {
                      'orders@koss.com' => 'Host not found'
                    },
          'employment' => {
                            'LifeShopDirect@freshcornam.com' => 'Host 
+not found'
                          },
          'clara' => {
                       'Sandra@camrpc.com' => 'Host not found'
                     }
        };
[download]

Thanks ikegami. Although your solution is better than mine was, it's still not exactly what I need. The results are as follows. Note jennifer, employment, clara and susan only has one 'entry'.

%hash = (
          'clara' => {
                       'Sandra@camrpc.com' => 'Host not found'
                     },
          'jack' => {
                      'JHuffman@pulsetech.net' => 'cannot find your ho
+stname'
                    },
          'tim' => {
                     'millionairemaker@freshcornam.com' => 'cannot fin
+d your hostname'
                   },
          'russ' => {
                      'orders@koss.com' => 'Host not found'
                    },
          'susan' => {
                       'linda@kepro.com.tw' => 'cannot find your hostn
+ame'
                     },
          'employment' => {
                            'LifeShopDirect@freshcornam.com' => 'Host 
+not found'
                          },
          'jobs' => {
                      'kwillis@cors.com' => 'Host not found'
                    },
          'jennifer' => {
                          'Warranty@onlogixx.com' => 'cannot find your
+ hostname'
                        }
        );
[download]

oops, didn't notice. Change

$hash{$array[0]} = { $array[1] => $array[2] };
[download]

to

$hash{$array[0]}{$array[1]} = $array[2];
[download]

which is a shortcut for

$hash{$array[0]} = {} if not defined $hash{$array[0]};
$hash{$array[0]}{$array[1]} = $array[2];
[download]

It depends on how you want to access the data. A HoA keyed on the first column won't work since the values in that column are not unique. A HoH would be ok if the second key was unique within each first key (the example data has a duplicate email address but it is for two different people). Without that guarantee you could go with a HoAoA (or a HoAoH) if you wanted to look data up based on the values in the first column. If there are no lookup requirements you could just use an AoA.

BTW, you only end up with one item in the hash because you clear it out when you assign to %hash every time through the loop.

my @AoA;
my %HoAoA;
my %HoAoH;

while( my $line = <DATA> ){
  chomp $line;
  my @fields = split( /\s+\s+/, $line );

  # Add an array ref (containing the data in @fields) onto the @AoA
  push( @AoA, [ @fields ] );

  # Add an array ref (containing the last 2 elements of @fields)
  # onto the %HoAoA.  The key in the %HoAoA is $fields[0], and
  # the value is an array ref.  '@fields[ 1, 2 ]' is an array
  # slice and is shorthand for ( $fields[1], $fields[2] )
  push( @{ $HoAoA{$fields[0]} }, [ @fields[ 1, 2 ] ] );

  # Add a hash ref onto the %HoAoH.  The key in the %HoAoH is
  # $fields[0], and the value is an array ref.  The array
  # contains one or more hash refs.  Each hash ref
  # contains the 'email' and 'result' keys.
  push( @{ $HoAoH{$fields[0]} }, { email => $fields[1],
                                   result => $fields[2] } );
}
[download]

Output:

See perldsc and perllol for more info on navigating these structures.

HTH

while(<DATA>){
    chomp;
    my ($user, $email, $result) = split /\s+/, $_, 3;
    $hash{$user}{email} = $email;
    $hash{$user}{result} = $result;
}
[download]