ach so, das Skript sieht so aus (bitte nicht lachen, dass geht wahrscheinlich tausend mal eleganter):

#### my printout

my $i = 0;
print "A:\t";
while ( $i < 20 ) {

print $A_freq[$i] , "\t";
$i++;
}