foreach  my $market (sort { $market_hash->{$a}[1] cmp $market_hash->{$b}[1]
 } keys (%{$market_data}) ) {
    print "$market,$market_hash->{$market}[1],$average\n";
}