Select Code to Download

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

...
        }
        print "\n";
}

--A----<a@bob.com>--
--B----<B@b.org>--
--Calcutta----<O@thehorror.net>--

#!/usr/bin/perl -w
use strict;
my $test='A <a@bob.com>, B <B@b.org>, Calcutta <O@thehorror.net>';
...
foreach my $name (keys (%names)) {
        print "$name==$names{$name}\n";
}

my @names;
while (my ($key, $value) = each %names){
        push @names, "$key $value";
}
print join ', ',@names;