; #discard a line (one line is read in void context) my $salt = ; #provide scalar context so only one line is read my (@post, @time); ($post[$#post + 1], $time[$#time + 1]) = split(/;/) while (); print "@post\n@time\n";