>>768

>>771 の出力を >>768 のようにしたいなら、最後の行を

print map { "$_ ".join(' ', @{$alpha{$_}})."\n" } sort grep { @{$alpha{$_}}>=2 } keys %alpha;

>>771 の使い方は、コマンドラインで

perl 771.pl ファイル1 ファイル2