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