while(<>) { @array = $_; @array = split; } #### 12 44 111 445 #### @line1 = $array[0]; print "@line1\n"; # this works @line1 = split(/\t/); $var1 = $line1[0]; print "$var1\n"; # this doesnt work