my @array = ([1,2], [3,4], [5,6]);

##</code><code>##

@rows = $dbAdo->ct_sql($sql);
  foreach $row (@rows) {
    $main::systemNames{$row->[0]} = $row->[1];
}

##</code><code>##

my %hash = map { $$_[0] => $$_[1] } @array;