my (%H, @keys, @vals);
@vals = qw (e c a b d);
@keys = (5, 3, 1, 2, 4);
@H{@keys} = @vals;

print map{"$_: $H{$_}\n"} sort{ $a <=> $b } keys %H;