my $num = 1;
 print map { $num++, " $_" } @myArray;