gistfile1.pl

use strict;
use warnings;
use 5.12;

sub list {
    return qw(miyagawa tokuhirom nekokak);
}

sub array {
    my @ret = qw(miyagawa tokuhirom nekokak);
    return @ret;
}

say scalar list();
say scalar array();

__END__
nekokak
3