#!/usr/bin/perl

open (IN, '+>', "test_values");
while (<IN>) {
@line_array = split (/\t/, $_);
if ($line_array[1] == 45) {print "success"};
}

close (IN);