Select Code to Download

@a=(1,2,3);
@a_plus_1 = map { $_ + 1 } @a;

perl -d -e 1
Loading DB routines from perl5db.pl version 1.28
...
  DB<2> print $h{1}
2