Select Code to Download

open (TERMFILE, $ARGV[0]);
my(@termusers) = <TERMFILE>;
chomp @termusers;
close TERMFILE;

foreach $termusername (@termusers)
{
...
}
# or simpler ....
NameComp( $_ ) foreach ( @termusers );

NameComp( $termusername, \@curusers );

package NameComp;
use Lingua::EN::MatchNames;
...
for ( @termUsers ) {
    NameComp::compare( $_ );
}

package NameComp;
use Lingua::EN::MatchNames;
...
for ( @termUsers ) {
    $comparer->compare( $_ );
}