পার্ল multidimensional-header

my @users = (
  ["id", "name", "land"],
  [10, "তানিম", "বাংলাদেশ"],
  [11, "জোহান", "নেদারল্যান্ড"],
  [12, "হামিদ", "আফগানিস্তান"],
  [13, "সাকিব", "বাংলাদেশ"]
);

print "<table border='1'>\n";

foreach my $index (0 .. $#users) {
  my $user = $users[$index];

  print "<tr>\n";

  foreach my $value (@$user) {
    my $tag = $index == 0 ? "th" : "td";
    print "<$tag>$value</$tag>\n";
  }

  print "</tr>\n";
}

print "</table>";