__Example code__

my %hash = ()
my $file = 'master.txt';
open (my $OUT_FILE, '<', "TEXT_FILE") or die "ERROR";

while (<$OUT_FILE>)  {   
    print "$. \n" if /SOME_DATA/; #searching SOME_DATA and printing
}