while (my $line = <I>) {
    chop $line;
    push(@lines,$line);
}  
@lines = grep (!/^$/, @lines);
foreach my $line(@lines) {
    my ($name, $addr) = split /\s*,\s*/,$_,2;
    $hash{$name} = $addr;
}