সম্পাদনা
my @fruits = ("আপেল", "আঙ্গুর", "কমলা", "কলা"); foreach my $fruit (@fruits) { if ($fruit eq "কমলা") { last; } print $fruit . "\n"; }
পূর্বরূপ
