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