Select Code to Download

foreach my $td (@tds) {
    say for @$td;
}

use strict;
use warnings;
...
        </TR>
</TABLE> </DIV></TD>
  </TR></TABLE>

$VAR1 = [
  {
...
    'Actual Start' => undef
  }
];