Programming :: Adding Functionality To Perl Script?

I am a C++ programmer and never used Perl. add a functionality to a script, in Perl language. Originally, the script takes 1 file input and I run it in this way: ./script.pl file1 It is designed to return specific words from that file, example:

user
admin
printer-1
user-2
server

The idea is that I need to be able to provide the script with a second input file that contains only few words, each on a new line. These words might have a "dash". Example:

printer-2
server
user-2

I will be running the script as: ./script.pl file1 file2 In return, the script should check if every word in file1 does exist in file2. If it does exist, then the script displays it. In the example I provided above, the script should only return:

server
user-2

Here is the script I have. What's in black is the original working Perl script and what's in red is what I would like to add in Perl Language:

!/usr/bin/env perl
my ($table);
for (every value in file2)
{

[code]....