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( $_ );
}