use strict;
use warnings;
use Data::Dumper;

my %HoA = ();
while (<DATA>) {
   if (/(.+)\s+(\d+)\s*$/) {
      unshift(@{$HoA{$1}}, $2);
   }
}
print Dumper(\%HoA);

__DATA__
Barmparas, Galinos, 1120
Barmparas, Galinos, 1410
Beal, Alan, 866
Beall, Dawson, 1062