#!/usr/bin/perl -w
use strict;
my $test='A <a@bob.com>, B <B@b.org>, Calcutta <O@thehorror.net>';

my %names = split /,\s|\s(?=<)/, $test;   #split apart

foreach my $name (keys (%names)) {
        print "$name==$names{$name}\n";
}