Schreib da

use strict;
use warnings;

drüber.

und dann was mir so spontan auffällt:
* open mit 3 Parametern
* Filehandle nicht global
* check auf open
* Zeile 5-7 klingt alles irgendwie gleich
* Zeile 9: Eine parse funktion ohne Parameter ist vorsätzliche Gegnerverwirrung. Man schreibts auch ohne &
* Zeile 16: ich nehm da eher next if... das hat den grossen Vorteil, dass du dir unten nicht so eine Klammerzukaskade einhandelst bei der jeder dann zu zählen anfängt.
* den chomp so früh wie möglich.
Den HTML-Sums in ne Funktion.
* if ($f1 eq $g1){ Vielleicht gibts da auch was aussagekräftigeres