my (undef, $salt, @post, @time) = (scalar(<FILE>), scalar(<FILE>)); #force scalar context.
($post[$#post + 1], $time[$#time + 1]) = split(/;/) while (<FILE>);
print "@post\n@time\n";