while (my $line = <I>) {
    chop $line;
    my ($name, $addr) = split /\s*,\s*/,$_,2;
    $hash{$name} = $addr;
}