use Modern::Perl;

sub givelist {
    return 'a' .. 'c';
}

say [givelist()]->[1];