#!/usr/bin/perl -w
use strict;
my @array;  # no enclosing braces - scoped to Main
my $var1 = 3;
my $var2 = 4;
foreach (1..10) {
   push @array , $_;
}
if ($var2 > $var1) {
   my @array = ($var1 , $var2);
   print "$_\n" foreach (@array);
}
print "Other array\n";
print "$_\n" foreach (@array);