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