lines 33 & 34
  my @dates  = @{$hash{$pk}[1]};
  my @rdates = @{$hash{$pk}[2]};