Help for this page
use Test::More; ... map { $_->{str} } sort { $b->{wc} <=> $a->{wc} || $a->{site} <=> $b->{site} } @sub +str_mat; }
$VAR1 = [ { ... 'wc' => 2 } ];