use strict;
my $find = "2";
open (FILE, "<high_fanout.txt") or die "could not open:$!";
my @line = <FILE>;
for (@line) {
    if ($_ =~ /$find/) 
	{
        print "$_\n";
		print NEW "@line\n";
				}
}
open (NEW, ">new.txt" ) or die "could not open:$!";

close (FILE);
close (NEW);