in reply to printing arrays
There are several ways:
oruse List::MoreUtils qw/mesh/; print join ' ', mesh @ID, @name;
or ...# you lose the order and every id must be unique my %h; @h{@ID} = @name ; print join ' ', %h;
Boris
In Section
Seekers of Perl Wisdom