Your problem is here:

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

You put the index in the variable $key_pal, but you use $pal as index. Change the first line to:

  $pal,$date=split ",",$line;
[download]