Select Code to Download

my $hash ={ Initiative=>'DriveInitiative', 
            ResOrientation => 'DriveResOrient'};
     
...
$sql .= " where $where_clause " if ($where_clause);
$sql .= " order by a.ResType, a.ResLevel, a.ResManage, 
                a.Details, a.Length, a.Source, a.Cost, a.FurtherDetail
+s";