Select Code to Download

#! perl -slw
use strict;
...
and a third name, and address
fourth name, fourth address

C:\test>junk4
$VAR1 = {
...
          'another name' => ' and another address, also with commas
'
        };