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