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

##</code><code>##

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

##</code><code>##

NameComp( $termusername, \@curusers );

##</code><code>##

package NameComp;
use Lingua::EN::MatchNames;

my @curUsers;

sub readFile {
    my ( $filename ) = @_;

    open USERFILE, $filename       or die $!;
    @curUsers = <USERFILE>;
    chomp @curUsers;
    close USERFILE;
}

sub compare {
    my ( $termUser ) = @_;

    foreach ( @curUsers ) {
        # something involving $termUser and $_
    }
}

package Main;

die ("Usage: $0 <path to term user list> <path to current user list>" ) 
    unless( 2 == @ARGV );

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


NameComp::readFile( $ARGV[1] );

for ( @termUsers ) {
    NameComp::compare( $_ );
}

##</code><code>##

package NameComp;
use Lingua::EN::MatchNames;

sub new {
    my ( $class, $filename ) = @_;
    my $self = {};
    bless $self, $class;
    $self->readFile( $filename );
    return $self;
}
sub readFile {
    my $self = shift;
    my ( $filename ) = @_;

    open USERFILE, $filename       or die $!;
    @{$self->{users}} = <USERFILE>;
    chomp @{$self->{users}};
    close USERFILE;
}

sub compare {
    my $self = shift;
    my ( $termUser ) = @_;

    foreach ( @{$self->{users} ) {
        # something involving $termUser and $_
    }
}

package Main;

die ("Usage: $0 <path to term user list> <path to current user list>" ) 
    unless( 2 == @ARGV );

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


my $comparer = new NameComp ( $ARGV[1] );

for ( @termUsers ) {
    $comparer->compare( $_ );
}