Select Code to Download

$ perl -e '
@ids = qw{ 123 456 789 };
...
print qq{@{ [ map qq{$ids[ $_ ] $names[ $_ ]}, 0 .. $#ids ] }\n};'
123 ann 456 joe 789 flo
$