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

sub myLoop( $ )
{
    my $a = shift;
    print "Loop: $a\n";
}

my $a = 1;

while( $a < 5 )
{
    myLoop( $a );
    $a++;
}

print "After loop: \$a=$a\n";