...
my $output = "";
foreach my $row ( @$Results ) {
  $output .= "$row->{'DOC_SUB_TYPE'}|$row->{'DESCRIPTION'}\n";
}
return $output;
...