Hello,
1)Do you have some spaces in the text file you are reading?
2) Please do not use the variables $1 and $2.
3) Use split as mentioned in my previous post also:

   my @arr = split(/ /,$line);
         print "col1: $arr[0] col2: $arr[1] \n";
[download]

inside the while loop. This should solve the purpose.
Hope this time it works for you.