my %HoA;
push @{ $HoA{ ( split )[0] } }, ( split )[2] while <DATA>;