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