Select Code to Download

3
3453434
1;1125070863
2;1125074577
4;1125346343

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

1;1125070863 2;1125074577 4;1125346343

1 2 4
1125070863 1125074577 1125346343