@myports qw( 21 22 23)

open SERVICES_FILE, "<", "/etc/services" or die $!;


foreach my $port (@myports) 
                 {
                 print $port;
                 }
                 while (my @lines = <SERVICES_FILE>)
                  {
                  for my $line (@lines){
                  if ( my $port =~ m/$line/ ) {
                  print "Match Found:  $line";
                 }
                 }
                 }
           }