use File::Slurp;
@datb = grep { /$cnip/ } read_file('tech3');