$AstPDSlackHash{$aststartendwclks} = join (" ",$aststartendwclks,$astpdslack);
$PTPDSlackHash{$ptstartendwclks} = join (" ",$ptstartendwclks,$ptpdslack);<br>

foreach (keys %AstPDSlackHash) {
	print XLOUT ("$AstPDSlackHash{$_} $PTPDSlackHash{$_}\n") if exists $PTPDSlackHash{$_};
}