print "$_ ", join ', ', @{$data{$_}} for sort keys %data;