Select Code to Download

#!/usr/bin/perl

...
        $rownumber++;
    }
}

my @total = @{ [ $all_table_content[0]->rows ]->[-1] };
print join(', ', @total), "\n";

my $table = ($te->tables)[0];
my $count = $table->rows;
my $last_row = $table->row($count - 1);
print join(', ', @$last_row), "\n";