Select Code to Download

#!perl
# Dumper demo cgi
...
print '<h2>@error</h2>';
print Dumper @error;
print '<hr/>';

my @array = @$resultsRef
foreach my $hit (@array) {
...
  my %hash = %$hit;
  push @searched, $hash{ID};
}