If the warnings you get are not clear enough for you,

use diagnostics;

#!/usr/bin/perl -w
use diagnostics;
use strict;
sub outermost { my $a; sub middle { sub { $a } } }
[download]

Use strict warnings and diagnostics or die

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.