$ cat banned_words 
pr0n
hard
visit
$ perl
use Tie::File;
tie my @banned_words, 'Tie::File', 'banned_words' or die "tie: $!";
print "banned words: @banned_words\n";
untie @banned_words;
__END__
banned words: pr0n hard visit