OK a few observations:
### grabbing every column
my $dbCommand = qq^select ^;
foreach (@ticketsFields) {
$dbCommand .= "$_,";
}
$dbCommand =~ s/,$//;
ok I think all of that is simply:
my $dbCommand = 'select '.join ',',@ticketsFields;
Why do you need this copy? and deref doesn't need {} , just use @$rows ..
my @newArray = @{$rows};
All of this:
for(my $x = 0; $x < $ticketsFieldsSize; $x++)
{
### assign the key and value in the hash
$GenericData{$ticketsFields[$x]} = $newArray[$x];
}
might be something like:
@GenericData{@ticketsFields} = @$rows;
and lastly, you don't need a "return" at the end- whatever value is at the end, IS returned:
\@ticketsRecords;
}