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

##</code><code>##

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