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