%astpd = ();
%astslack = ();

$ln = 0;
while ($in1s[$ln] ne "") {
        chop ($in1s[$ln]);
        @in1saa = split(/\s+/,$in1s[$ln]);
        $aststartend = join (" ",$in1saa[0],$in1saa[1]);
        $astpd{$aststartend} = $in1saa[2];
        $astslack{$aststartend} = $in1saa[3];
        undef (@in1saa);
        $ln++;
}

%ptpd = ();
%ptslack = ();

$ln = 0;
while ($in2s[$ln] ne "") {
        chop ($in2s[$ln]);
        @in2saa = split(/\s+/,$in2s[$ln]);
        $ptstartend = join (" ",$in2saa[0],$in2saa[1]);
        $ptpd{$ptstartend} = $in2saa[2];
        $ptslack{$ptstartend} = $in2saa[3];
        undef (@in2saa);
        $ln++;
}