c:\@Work\Perl\monks>perl -le
"use warnings;
 use strict;
 ;;
 use Data::Dumper;
 ;;
 my @ra = (100, 200, 300, 400);
 print Dumper \@ra;
 ;;
 @ra = map { [ $_+1, $_-1 ] } @ra;
 print Dumper \@ra;
"
$VAR1 = [
          100,
          200,
          300,
          400
        ];

$VAR1 = [
          [
            101,
            99
          ],
          [
            201,
            199
          ],
          [
            301,
            299
          ],
          [
            401,
            399
          ]
        ];