#!/usr/bin/perl
use strict;
use warnings;
my @advocates = (
  {fld_title => 'Rec1', fld_type => 'National'},
  {fld_title => 'Rec2', fld_type => 'State'   },
  {fld_title => 'Rec3', fld_type => 'Local'   }
);
my %order =  (LOCAL => 'A', STATE => 'B', NATIONAL => 'C');
my @sorted = map { $_->[0] }
            sort { $a->[1] cmp $b->[1]
                          ||
                   $a->[2] cmp $b->[2] }
            map { [ $_ , $order{uc $_->{fld_type}}, $_->{fld_title} ] } @advocates;