filehandler og if($a eq $f)

Hej Experter..:)

Jeg har prøvet at lave et lille script, der sammenlinger data fra 2 filer.. Det virker meget godt, men hvis jeg nu vil have FH1, til at gå vidre til næste linje, første gang den finder 2 ens ord, hvordan gør jeg så det? (Så den ikke prøver vidre med resten af talne fra digits filen)

Scripet ser ud som følger:

#!/usr/bin/perl

open(FH0, " < digits");
while(<FH0>){
    chomp;
    ($a,$b) = split(/:/);

    open(FH1, "< alle1");
    while(<FH1>) {
        chomp;
        ($c,$d,$e,$f) = (split(/:/))[0,1,2,3]; {

        open (FH2, '>> data.txt');
        print FH2 "$a:$f\n" if($a eq $f);
        }
    }
}
close(FH0)
close(FH1)
close(FH2)

extra info:
$cat digits
1:1
2:1
3:1
4:1

$cat alle1
1:1:1:2

På forhånd tak
Jacob