#!/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";

##</code><code>##

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

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

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

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

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