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