$key_pal, $data = split ",", $line;
  $key_pal{$pal} = $data;

##</code><code>##

  $pal,$date=split ",",$line;