my $mc = (sort {$$HoA{$a}[0] <=> $$HoA{$b}[0]} keys %$HoA)[-1];