পার্ল

my $text = "হ্যালো বিশ্ব";

print $text;

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

foreach my $fruit (@fruits) {

  if ($fruit eq "কমলা") {
    next;
  }

  print $fruit . "\n";
}