Select Code to Download

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

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

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