## my (undef, $salt, @post, @time) = (, , (), ()); ($post[$#post + 1], $time[$#time + 1]) = split(/;/) while (); print "@post\n@time\n"; ##
## 1;1125070863 2;1125074577 4;1125346343 ##
## 1 2 4 1125070863 1125074577 1125346343