#!/usr/bin/perl
use strict;
use warnings;

my @array = (1,2,3);

@array = map {$_+1}@array;

print "@array\n"; #prints: 2 3 4

foreach my $num (@array)
{
   $num++;
}

print "@array\n"; #prints: 3 4 5