#!/usr/bin/perluse warnings;use strict;my @array = (1..10); foreach (@array) { $_++;}print "Array is now: @array\n";