Also, I have used the recommned code in my code:--
my @data;
foreach (my $i = 0; $i < @Arr1 && $i < @Arr2; $i++) {
$data
];
}
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";
}
================
but its printing the result as :
A
|B
|C
|D
-------------
pls suggest