পার্ল list

my @fruits = ("আপেল", "আঙ্গুর", "কমলা", "কলা");

print "<ul>\n";

foreach my $fruit (@fruits) {
  print "<li>$fruit</li>\n";
}

print "</ul>";