Help for this page
#!/usr/bin/env perl ... $info{$posts[$_]}{extra} = $extra[$_] for 0..$#posts; print "$_~$info{$_}{extra}\n" for @posts;
a to b b to c ... b~x c~y d~z