use Modern::Perl;

sub givelist {
    my @rtn = ('a', 'b', 'c');
    return @rtn;
}

#say givelist()[1];
my @list = givelist();
say $list[1];