use List::Util qw/min max/;
# ...
$HoA_sequence{$_} //= '-'
  for min(keys %HoA_sequence) .. max(keys %HoA_sequence);