$ perl -MO=Deparse,-p grimy
sub test_a {
    use warnings;
    use strict 'refs';
    (my $arg = shift());
    (ref($arg) ? $$arg->test_a([0]) : $arg); ## HELLO
}
sub test_b {
    use warnings;
    use strict 'refs';
    (my $arg = shift());
    (ref($arg) ? test_a($$arg[0]) : $arg);
}
use warnings;
use strict 'refs';
test_b([42]);
test_a([42]);
grimy syntax OK