পার্ল multidimensional-index

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>";