print map { $_, $_, $_ } (1, 2, 3); #111222333 print map { ($_) x $_ } (1, 2, 3); #122333 #### print map { $_, ' ') } (1, 2, 3); #1 2 3 #### print map { $_ => ' ' } (1, 2, 3); #1 2 3