while(defined(my $i = <FILE>)) { $test[0] = $i; }