sub list0 {
  qw()
}

sub list1 {
  qw(foo bar);
}

sub do_it_right {
  scalar list1() ? list1() : list0();
}

$,=':';
print do_it_right();