# Direkte Adressierbarkeit nutzen für Sortierungen
foreach my $addr( sort{ $a->{plz} cmp $b->{plz}  } @$table ){
    printf qq(
        Name:    %s
        Vorname: %s
        Ort:     %s
        PLZ:     %s
    ), 
    $addr->{name}, $addr->{vname}, $addr->{ort}, $addr->{plz}; 
}