Lass dir die Werte doch einfach mal zwischendurch ausgeben.

Da fehlt übrigens noch ein close(AI); Ich verwende für die Arbeit mit Dateien auch gerne FileHandle; da ist dem Betrachter des Codes leichter ersichtlich, ob ich eine Zeile oder alle Zeilen auslese (sieht nicht so kryptisch aus wie my $ai = <AI>; - aber das ist jedem selbst überlassen.

Grüße, pktm