Perl has all these funky magic vairables, like $_. Its tough because they are useful with foreach loops, like this one:

foreach (@myarr) {
 	print $_;
}

An expanded example:

  1 my @x = [];
  2 $xa = "a, b, c,d";
  3 @x = split(/[,]\ ?/, $xa);
  4 foreach $item (@x) {
  5   $key = $item;
  6   if($key eq 'c') {
  7     print $key;
  8     print "\n";
  9   }
 10 }