Hallo,
der Key besteht aus "A$nummer$namedesautors";
(A.., da keine Zahl als erstes stehen darf)
$upautorB{$key} = $upautor;
Deine Antwort erscheint mir rätselhaft, aber probier mal das hier:
-----------------------------------------------------
#!/usr/bin/perl
use strict;
print "Hello, Torwächter...\n";
my %upautorB;
$upautorB{'Fritz'}="Alles";
$upautorB{'Frieda'}="oder";
$upautorB{'Torwächter'}="nichts";
$upautorB{'Arno'}="ist";
$upautorB{'Fred'}="hier";
$upautorB{'Bernd'}="die";
$upautorB{'Susi'}="Frage";
my $alleautorentext ="";
for (sort keys %upautorB){
$alleautorentext .= qq~<option value="$_">$_</option>\n~;
}
print $alleautorentext;
oesi50