সম্পাদনা
my @users = ( ["id", "name", "land"], [10, "তানিম", "বাংলাদেশ"], [11, "জোহান", "নেদারল্যান্ড"], [12, "হামিদ", "আফগানিস্তান"], [13, "সাকিব", "বাংলাদেশ"] ); print "<table border='1'>\n"; foreach my $index (0 .. $#users) { my $user = $users[$index]; print "<tr>\n"; foreach my $value (@$user) { my $tag = $index == 0 ? "th" : "td"; print "<$tag>$value</$tag>\n"; } print "</tr>\n"; } print "</table>";
পূর্বরূপ
