#!/usr/bin/perl

use strict;
use warnings;

our $outer = 5;
recurse($outer);

sub recurse {
    my $inner = shift;
    $inner--;
    return if $inner < 0;
    print "outer: $outer\ninner: $inner\n";
    recurse($inner);
}