default variable $_

---

Default variable

my @fruits = qw(apple banana peach);
foreach my $fruit (@fruits) {
	print $fruit;
}

foreach my $name (@people) {
    print $name;
}

foreach (@people) {
    print;
}

foreach $_ (@people) {
    print $_;
}