入力ファイル形式変わってたのか。。。
じゃ、こっちと
use Data::Dumper;
my %alpha;
while(<>){
　　s/　/ /g;#全角スペース区切り対策
　　my ($key, $value) = split;
　　push @{$alpha{ $key }}, $value;
}

print Dumper(\%alpha);