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";