sub InitializeList {
  my @items; # no need to undef it
  for my $text ( qw( one two three four five six seven eight nine ten ) )
  ...
  return @items;
}

my @res = InitializeList(); # get the items from that call