পার্ল nested-key

my %user = (
  "নাম" => "মোঃ আরিফ",
  "তথ্য" => {
    "স্বপ্ন" => "সফটওয়্যার ইঞ্জিনিয়ার",
    "দেশ" => "বাংলাদেশ"
  }
);

print "<table border='1'>\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>\n";

print "<table border='1'>\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 "</table>\n";

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

print "</table>";