my $five = sub { 5 };
print $five->();