my %pal;
while ( <FILE> ) {
    chomp;
    my ($key, $val) = split /,/ , $_, 2;
    $pal{$key} = $val;
    if ( $val eq $my_item ) {
        # some code
    }
}