# New Ticket Created by Richard Hainsworth
# Please include the string: [perl #74050]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=74050 >
finanalyst: perl6: my @v=2,5; say ( map {; $^b => $^a }, @v ).perl
p6eval: rakudo 32fda1: OUTPUT«Lexical '$b' not foundcurrent instr.:
'_block14' pc 29 (EVAL_1:0)»
p6eval: ..elf 30299: OUTPUT«Undefined subroutine &GLOBAL::map called at
(eval 124) line 4. at ./elf_h line 5881»
p6eval: ..pugs: OUTPUT«((\5 => \2),)»
finanalyst: alpha: my @v=2,5; say ( map {; $^b => $^a }, @v ).perl
p6eval: alpha 30e0ed: OUTPUT«[5 => 2]»