my $y =1;
foreach my $key1 (sort keys %outdate) {
if ($outdate{$key1} eq $tacho) {
  $worksheet1->write_blank($r, $y, $tachosquare);
}
if ($outdate{$key1} eq $mot) {
  $worksheet1->write_blank($r, $y, $motsquare);
}
if ($outdate{$key1} eq $motlec) {
  $worksheet1->write_blank($r, $y, $motlecsquare);
}
foreach (@pmis) {
if($outdate{$key1} eq $_){
$worksheet1->write_blank($r, $y, $pmisquare);
 }
}
 if ($lec) {
 if ($lec eq $outdate{$key1} && $tacho eq $outdate{$key1} ) {
  $worksheet1->write($r, $y, "L", $tacholecsquare);
}
 elsif ($pmis[0] eq $outdate{$key1} && $lec eq $outdate{$key1} ){
   $worksheet1->write($r, $y, "L", $pmilecsquare);
 }
   elsif ($pmis[1] eq $outdate{$key1} && $lec eq $outdate{$key1} ){
   $worksheet1->write($r, $y, "L", $pmilecsquare);
 }
  elsif ($pmis[2] eq $outdate{$key1} && $lec eq $outdate{$key1} ){
   $worksheet1->write($r, $y, "L", $pmilecsquare);
 }
   elsif ($pmis[3] eq $outdate{$key1} && $lec eq $outdate{$key1} ){
   $worksheet1->write($r, $y, "L", $pmilecsquare);
 }
else {
 if ($outdate{$key1} eq $lec) {
  $worksheet1->write($r, $y, "L", $lecsquare);
}
}

 }

     $y++;

}