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