sub machwas {
   return [ qw/ a b c / ];
}

my @ret=@{ machwas() };