Select Code to Download

while(@results = $sth -> fetchrow_array)
{
...
  $SearchResults[$index]{'index'} = $index;
  $SearchResults{'count'} += 1;
}

{
  my $i = {};
  @SearchResults = @{$sth->fetchall_arrayref($i)};
  $SearchResults{count} = ++$#SearchResults;
}