print "$pk\n";
my @dates  = @{$hash{$pk}[1]};
my @rdates = @{$hash{$pk}[2]};