পার্ল multidimensional

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

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

print "<tr>\n";
print "<th>আইডি</th>\n";
print "<th>নাম</th>\n";
print "<th>দেশ</th>\n";
print "</tr>\n";

foreach my $user (@users) {
  print "<tr>\n";
  print "<td>$user->[0]</td>\n";
  print "<td>$user->[1]</td>\n";
  print "<td>$user->[2]</td>\n";
  print "</tr>\n";
}

print "</table>";