While loop and hash key value pair
#!C:/perl/bin %animals = ('R', 'H', 'J', 'S', 'K', G); while (($key, $value) = each %animals) { print "$key, $value\n"; }