#!/usr/bin/env perl
use 5.034;

sub outer {
  my $foo = $_[0];
  sub inner {
    say "foo: $foo";
  }
  inner();
}
outer( "bar" );
outer( "quux" );

sub outer2 {
  my $foo = $_[0];
  my $inner = sub {
    say "inner2: $foo";
  };
  $inner->();
}
outer2( "bar" );
outer2( "quux" );
__END__
foo: bar
foo: bar
inner2: bar
inner2: quux