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