foreach my $symbol_set (sort keys %pnl_ind) {
    my $symbols_r=$pnl_ind{$symbol_set);
    foreach my $symbol (sort ($a->{'pnl'}<=>$b->{'pnl'})%$symbols_r ) {
       ... etc