#!/usr/bin/perl -w
##
## Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
## Creation Date: Fri Jul 23 18:23:23 PDT 1999
## Last Modified: Fri Jul 23 18:23:26 PDT 1999
## Filename:      /home/httpd/html/perl/examples/prepend
## Syntax:        Perl 5
##
## Description:   demonstration on how to prepend strings to all elements
##                in an array.
##

@list = ("a", "b", "c", "d");

print "original list: \n     ";
print "@list";

foreach $i (@list) {
   $i = "added/$i";
}

print "\n\nnewlist:\n     ";
print "@list";
print "\n";