Scripting >> Perl >> How to display all elements in a HASH

eg. HASH{"one"} = 1, HASH{"two"} = 2, HASH{"three"} = 3 while ( ($key,$value) = each %HASH) { print "$key = $value\n"; }