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