Select Code to Download

#!/bin/perl -w
use strict;
...

while( my($key, $value)= each %hash)
  { print "/$key/ ::= /$value/\n"; }

#!/bin/perl -w
use strict;

...
while( my($key, $values)= each %hash)
  { # the values are in @{$values}
    print "/$key/ ::= /", join( '/', @{$values}), "/\n"; }