Select Code to Download

%hash = {'match1'=> 1;
    'match2' => 1;
...
        ## do something
    }
}

open (FILE, "<$file") or die $!;
@file = <FILE>;
foreach $row (@file) {
    ## do something with $row
}