#!/usr/bin/perl
my %hash; # hash deklarieren
#Werte einlesen
while (
)
{
my $key = $_;
print "Wert: ";
my $wert = ;
$hash{$key} = $wert;
}
#sortieren
sub nach_key_wert
{
"\L$hash{$a}" cmp "\L$hash{$b}" or
"\L$a" cmp "\L$b"
}
@meine_keys = sort nach_key_wert %hash;
#Reihenfolge ausgeben
foreach (@meine_keys)
{
print "Schlüssel: $_ hat Wert $hash{$_}\n";
}