#!/usr/local/bin/perl
use strict;
use warnings;

my @fruits = ("apple", "lemon", "banana");
foreach my $fav(@fruits){
  print "$fav\n";
}

my @fruits = ("apple", "lemon", "banana");
foreach (@fruits){
  print "$_\n";
}

CALC: for (my $i = 1; $i < 10; $i++){
  for (my $j = 1; $j < 10; $j++){
    my $calc = $i * $j;
    print "$i * $j = $calc¥n";

    last CALC if $calc > 10;
  }
}
print "終了¥n";