@ordered_keys = sort {$flows{$b}{pkts} <=> $flows{$a}{pkts}
                                       or 
                     $flows{$b}{size} <=> $flows{$a}{size} } keys %flows;