%hash = qw/a 1 b 2 c 3 d 4 e 5/;

for $key (keys %hash) { print 'Key:', $key, '=', $hash{ $key }, "\n" }
Key: e = 5
Key: c = 3
Key: a = 1
Key: b = 2
Key: d = 4