পার্ল multidimensional-key

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

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

print "<thead>\n";
print "<tr>\n";

foreach my $key (keys %{$users[0]}) {
  print "<th>$key</th>\n";
}

print "</tr>\n";
print "</thead>\n";

print "<tbody>\n";

foreach my $user (@users) {
  print "<tr>\n";

  foreach my $value (values %{$user}) {
    print "<td>$value</td>\n";
  }

  print "</tr>\n";
}

print "</tbody>\n";
print "</table>";