use strict;
use warnings;

my $limit = 5;

printLimit($limit);

sub printLimit
{
    my $limit = shift;
    my $i = q{xyz};
    print qq{outside foreach: $i\n};
    foreach $i ( 1 .. $limit )
    {
        print qq{ inside foreach: $i\n};
    }
    print qq{outside foreach: $i\n};
}