সম্পাদনা
my @fruits = ("আপেল", "আঙ্গুর", "কমলা", "কলা"); print "<ul>\n"; foreach my $fruit (@fruits) { print "<li>$fruit</li>\n"; } print "</ul>";
পূর্বরূপ
