my $countline = 0;
my $mytest;
open (MYFILE,"<testing.txt")||die "Could not open input file\n";