my %data;
while(<>) {
	chomp;
	my ($name, $number) = $_ =~ /\A (\D+) (\d+) \z/x;
	push @{ $data{$name} }, $number
	    if $name && $number;
}