sub build_list {
   my ($arg1, arg2, ...) = @_;
   my @list = ();
   ...
   if (something) {
      return @list;
   } else {
      return ();
   }
}