#!/usr/local/bin/perl

# this is an example of using the foreach loop with an array

@array=('one','two','three','four','five');

foreach $value (@array){
  print "one array value is $value\n";
}

    Source: geocities.com/siliconvalley/vista/6493/perl/code

               ( geocities.com/siliconvalley/vista/6493/perl)                   ( geocities.com/siliconvalley/vista/6493)                   ( geocities.com/siliconvalley/vista)                   ( geocities.com/siliconvalley)