#!/usr/bin/perl -w
use strict;

open (INA, $ARGV[0])|| die "unable to open file";
open (INB, $ARGV[1])|| die "unable to open file";


my $item;
my $line;
my @indirizzi = <INB>;
my @nomi = <INA>;

chomp @nomi;

foreach $item(@nomi) {

        foreach my $line (@indirizzi){
           if ($line =~ m/^$item/){
            print $line;
        }
    }
}