use strict;
use warnings;


open(FILEHANDLF,"switch_data.txt")||die"can not open filename:$!";
open(FILEHANDLES,"ip.txt")||die"can not open filename:$!";
open(FILEHANDLE,">>ip_mac.txt")|| die"can not open filename:$!";
my(@array1)=<FILEHANDLF>;
chomp@array1;
my(@array2)=<FILEHANDLES>;
chomp@array2;




for (my $i=0;$i<=$#array2;$i++){
my $elm=$array2[$i];
my @list=grep /$elm/,@array1;
chomp@list;
print FILEHANDLE "@list\n"; 
}
close(FILEHANDLE);
close(FILEHANDLES);
close(FILEHANDLF);