use v5.36;
use warnings;
use experimental qw/for_list/;

my %hash;
@hash{"a".."e"} = 1..5;

for my ($key, $value) ( %hash{"c","a","e"} ) {
    say "$key -> $value";
}