while( my ($k, $v) = each %{ state $a = { 'a'..'z' } } ) { say "$k :> $v" };;
w :> x
e :> f
a :> b
m :> n
s :> t
y :> z
u :> v
c :> d
k :> l
q :> r
g :> h
i :> j
o :> p