# Basic syntax:
last;
# Where last is analogous to break in Python, Bash, R, etc
# Example usage:
for my $i (0 .. 5) {
print "index is $i
";
# Exit the for loop if the index equals 3
if ($i == 3) {
last;
}
}
my $counter = 1;
foreach $foo (sort {$importHash{$b} <=> $importHash{$a}} (keys %importHash))
{
# push the string $foo onto the @tags array
push @tags, $foo;
# break out of our perl loop when the counter reaches 10
last if ($counter++ == 10);
}