list_or_array.pl

use strict;
use warnings;

sub hoge {
    return ('aaa');
}

sub foo {
    my @a = ('aaa');
    return @a;
}

say scalar(hoge()); # => aaa

say scalar(foo());  # => 1