#
while (($key, $value) = each (%ENV)) {
   print "\n\tKey :: $key" ;
   print "\n\tValue :: $value" ;
}