Select Code to Download

while (scalar(@names)) {
  print "?";
...
  @names=map($res->[$_][0],0..$#$res);
  push @ref, join '|',@names if (scalar(@names));
}

while (scalar(@names)) {
$b = @ref;
...
  push @ref, join '|',@names if (scalar(@names));
}
}