wantarrayはこんな感じで連鎖できる

gistfile1.pl

use strict;
use warnings;

sub hoge { return fuga() };
sub fuga {
    if (wantarray) {
        print "array\n";
    } else {
        print "scalar\n";
    }
};

my $hoge = hoge();
my @hoge = hoge();

__END__

scalar
array