$AstPDSlackHash{$aststartendwclks,$astmasterlist} = join (" ",$aststartendwclks,$astpdslack,$astmasterlist);

$PTPDSlackHash{$ptstartendwclks,$ptmasterlist} = join (" ",$ptstartendwclks,$ptpdslack,$ptmasterlist);

foreach ($astmasterlist %AstPDSlackHash) {
	print XLOUT2 ("$AstPDSlackHash{$_} $PTPDSlackHash{$_}\n") if $ptmasterlist !exists $PTPDSlackHash{$_};
}