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