Select Code to Download

DO_SOMETHING_WITH-$_

#!/usr/bin/perl 

...
map {++$_} qw{a b c};

---------- Capture Output ----------
> "C:\Perl\bin\perl.exe" _new.pl
...
original @array: a b c

> Terminated with exit code 0.