#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %keypal;
my @line;

while(<DATA>) {
  chomp;
  push(@line, (split(/,/))[0,1]);
}
%keypal = @line;

print Dumper(\%keypal);

__DATA__
297220,ITEM
207420,NEW