$ perl -wE 'my $t = sub { uc(@_)}; say $t->("foo")'
1