>>854
配列のハッシュのこと？こうかな？ruby書けません。
while (<>){
my($val,$year)=split /:/;
chomp $year;
push @{ $years{$year} }, $val;
}
for $year (sort keys %years){
print "$year,",join(", ",@{$years{$year}}),"\n";
}