Select Code to Download

C:\temp>perl -E "@a=1..3; @b=map 2*($_*=2) => @a; say qq|A = [@a], B =
+ [@b]|"
A = [2 4 6], B = [4 8 12]