#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dump;

my @foo = ( 1 .. 10 );
dd \@foo;
my @bar = map { ++$_ } @foo;
dd \@foo;
dd \@bar;