foreach $term(@inputs) {
@result = $words{$term};
push @results, @result;
}

undef @numbers{@results};
my @results2 = keys %numbers;
print "@results2\n";