#!/usr/bin/perl -w
use strict;
open(my $excludes,"<",$ARGV[0]) or die("could not open $ARGV[0]!");
open(my $large,"<",$ARGV[1]) or die("could not open the $ARGV[1]!");

my @excludes = <$excludes>;
chomp(@excludes);
my %stopwords = map { $_ => } <@excludes>;

while( <$large> ){
        my ($test,@temp) = split(/\s+/,$_);
        print "testing: $test\n";
        print $stopwords{$test} , "\n";
        #print $test, "\n";
}


close($excludes);
close($large);


##</code><code>##

testing: 9999853
Use of uninitialized value in print at ./filter_exclusions.pl line 13, <$large> line 1.