my %bierarten;
for my $ein_bier ( keys %viele_biere ) {
    push @{ $bierarten{$viele_biere{$ein_bier}} }, $ein_bier;
}