my $width = length $data[0][0]; # Assume they're all the same length
+.
my $Width = @{$data[0]};
my $divider = "-" x (($width + 1) * $Width);
my $topline = $divider x 2; chop $topline;
say $topline;
foreach my $line (@data) {
print "$_|" for @$line;
say "\n$divider";
}
=======================
i used the above code but i got an error message saying "cann't call "say " without a package or object reference.
Also, in the above code, where i will use the