#!/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){
  #redo演算子が実行されるとこの位置に進む

  $count++;

  if ($count == 2){
    redo;
  }

  print "$count¥n";
}
print "終了¥n";