bei mir stürzt dabei alles ab so das ich den pc neu anmachen muss^^

mit meinem versuch bin ich jetzt so weit

$hash{AL}="052001";
$hash{AB}="052003";

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

print "Drittes Element: $hash{$array[0]} - 0$array[2] - 000$array[4].00\n";


#print "$_\n";
}


es gibt mir alles richtig aus. nur kommen jetzt ein paar sonderfälle dazu. zumbeispiel ist teilweise die letzte nummer nciht vorhanden.. und in díesem fall soll es da dann auch nichts anzeigen.
Bsp:
AB FL 17+18
soll anzeigen 052001-017+018

bei mir zeigt es in dem fall jetzt aber 052001-017+18-000.00 an
was muss ich machen.
danke für jede hilfe