my @array = map { $result{$_} } sort { $a<=>$b } keys %result;