Select Code to Download

for my $count (0..10) {
   my $cell = $table->cell($count,1);
...

my ($fdr, $fdy, $tdr, $tdy, $fyay, $pr, $dd, $edd, $lsf, $lsd) =
   @Dividend_Values;