use warnings;
use strict;
my $i = sub {
  for my $i (1..5)  {
    return($i) if ($i == 4);
  }
}->();
print $i;