open my $IN, "<", "myfile.txt" or die $!;

my %seen;
while ( <$IN> ) {
    $seen{$_}++ for split;
}

delete $seen{$_} for qw/all my common words/;

my @metadata = keys %seen;