use strict;
use warnings;
use feature 'say';
use Data::Dumper;

my %hash;

while (<DATA>) {
    chomp;
    my @items = split ',';
    $hash{ $items[0] } = $items[1];
}

say Dumper \%hash;

__DATA__
a,b
a,c
x,y