Select Code to Download

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} ) {