use strict;
use warnings;

sub what_do_you_want {
    print wantarray ? "list\n" : "scalar\n";
}

my @list = what_do_you_want();   # prints "list"
my $scalar = what_do_you_want()  # prints "scalar"