sub f1 { while (@_) { print(shift); } print("\n"); } sub f2 { for (@_) { print(shift); } print("\n"); } sub f3 { for (map $_, @_) { print(shift); } print("\n"); } f1(map/./g, Japh); # Japh f2(map/./g, Japh); # Ja f3(map/./g, Japh); # Japh