my (@out,$ref) = undef;