Hash Perl

  1. Home
  2. Perl
  3. Hash
  4. 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";
}