printf
  <<TEST, join ( "<BR>\n", map { $_ . " -&gt; " . $cookies{$_} } sort 
+keys %cookies );
  %s
TEST