পার্ল map

my %info = (
  "নাম" => "মোঃ আরিফ",
  "দেশ" => "বাংলাদেশ"
);

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

foreach my $key (keys %info) {
  my $val = $info{$key};

  print "<tr>\n";
  print "<th>$key</th>\n";
  print "<td>$val</td>\n";
  print "</tr>\n";
}

print "</table>";