পার্ল nested-mixed

my %user = (
  "নাম" => "মোঃ আরিফ",
  "কাজ" => "প্রোগ্রামিং",
  "দক্ষতা" => ["পিএইচপি", "পাইথন", "জাভাস্ক্রিপ্ট"],
  "তথ্য" => {
    "দেশ" => "বাংলাদেশ"
  }
);

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

print "<tr>\n";
print "<th colspan='2'>তথ্য</th>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>নাম</th>\n";
print "<td>" . $user{"নাম"} . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>কাজ</th>\n";
print "<td>" . $user{"কাজ"} . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>দক্ষতা</th>\n";
print "<td>" . join(", ", @{$user{"দক্ষতা"}}) . "</td>\n";
print "</tr>\n";

print "<tr>\n";
print "<th>তথ্য</th>\n";
print "<td>\n";

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

print "<tr>\n";
print "<th>দেশ</th>\n";
print "<td>" . $user{"তথ্য"}{"দেশ"} . "</td>\n";
print "</tr>\n";

print "</table>\n";

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

print "</table>";