sorry fehler. so siehts aus.
$hash{AL}="052001";
$hash{AB}="052003";

while(<>){
chop;
@array=split;
$org=$_;

print "$_ $hash{$array[0]} - 0$array[2] - 000$array[4]/000.00\n";


#print "$_\n";
}


frage bleibt aber noch die gleiche ;)