Select Code to Download

use Test::More;

...
      map { $_->{str} }
      sort { $b->{wc} <=> $a->{wc} || $a->{site} <=> $b->{site} } @sub
+str_mat;
}

$VAR1 = [
          {
...
            'wc' => 2
          }
        ];