undef $hash{ $_ } for 'a' .. 'f';; @ordered = sort keys %hash;; @hash{ @ordered } = 1 .. @ordered;; pp \%hash;; { a => 1, b => 2, c => 3, d => 4, e => 5, f => 6 }