my $sub;
$sub = sub{print"hello\n";return $sub};
$sub->();
print "$sub\n";
$sub->()->();