sub test {
   my ($x) = shift;
   return if !$x;

   our @o = $x;
   test($x-1);
   print("@o\n");
}

test(3);  # 1,1,1