my $matches = 0;
open FILE, ">filename.txt" or die $!;
while (my $ethernet = <FILE>) {