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