my $grzblgh = sub { length or $_ = shift for shift };

sub f {
    (my $arg = shift)->$grzblgh("default");
}