map { ($x < $_)?
                   print "[$num{$_}]\n;:
                   ($x = ($_ + $num_before) /2)?
                   print "[$num($_)]\n";:
                   next;
                   $num_before = $_;}sort keys %num;