use List::MoreUtils qw/mesh/;
print join ' ', mesh @ID, @name;
[download]

# you lose the order and every id must be unique
my %h;
@h{@ID} = @name ;
print join ' ', %h;
[download]