sub sql {
  my @output = $sqlCount->execute;
  my @data;
  while (@output=$sqlCount->fetchrow_array) {
    push @data, @output;
  }
  $sqlCount->finish();
  $dbcon->disconnect();
  return \@data
} 

##</code><code>##

my $data = join "\n", @{ +sql() };
...
Data => $data
...