Select Code to Download

use strict;
use warnings;
...

print first { $last = $a{$_} <=> $b{$_} } @fields;
print $last;

(
  ["RUN", "DISTRICT", "COPY", "TOTAL"],
...
TOTAL,-1
TOTAL
-1