my %fields = split(/\s+/, $line);

##</code><code>##

my ($last_name, $first_name, undef, $home_phone, %fields) = split(/\s+/, $line);