#!/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";
}

my $count = 0;

while ($count <= 5){
  $count++;

  if ($count = 4){
    next;
  }

  print "$count¥n";
  
  #next演算子が実行されるとこの位置に進む
}
print "終了¥n";