# Copy all the data from the table into @tbl
my @tbl;
push @tbl, [ @$_ ] for $table->rows;

# Now edit the data any way you like:
for my $r (0 .. $#tbl) {
    # Make the first column ALL UPPERCASE
    $data[$r][0] =~ tr/a-z/A-Z/;

    ... more editing, as desired ...
}

# print it
for my $rox (@tbl) {
    print join(";", @$rox), "\n";
}