Select Code to Download

while(<>)
{
...
    @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