সম্পাদনা
my @users = ( { "আইডি" => 10, "নাম" => "তানিম", "দেশ" => "বাংলাদেশ" }, { "আইডি" => 11, "নাম" => "জোহান", "দেশ" => "নেদারল্যান্ড" }, { "আইডি" => 12, "নাম" => "হামিদ", "দেশ" => "আফগানিস্তান" }, { "আইডি" => 13, "নাম" => "সাকিব", "দেশ" => "বাংলাদেশ" } ); print "<table border='1'>\n"; print "<thead>\n"; print "<tr>\n"; foreach my $key (keys %{$users[0]}) { print "<th>$key</th>\n"; } print "</tr>\n"; print "</thead>\n"; print "<tbody>\n"; foreach my $user (@users) { print "<tr>\n"; foreach my $value (values %{$user}) { print "<td>$value</td>\n"; } print "</tr>\n"; } print "</tbody>\n"; print "</table>";
পূর্বরূপ
