You could use map and an additional counter like this

@name = ("one","two","three");
@ID   = (1,2,3);
$i=0;
print map{ ($_,$ID[$i++]); } @name;
[download]

or maybe you can have a look at how interleave two arrays.
of course someone has thought of a more general map operator , it's called mapcar :) (I found about it in the link above),it seems very handy

happy new year ! :)