sub get_my_list
{
  my $array_ref = $_;
  if( &some_other_func() ){
    @{$array_ref} = qw( Yadda yAdda yaDda );
    return 1;
  }
  return 0;
}

if( get_my_list(\@array) ){
  print 'I got this array: '.join(',',@array);
}else{
  print 'Failed';
}