Language Basics Perl

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