সম্পাদনা
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>";
পূর্বরূপ
