#!/usr/bin/perl

#!Examples taken from "Learning Perl" (O'Reilly)
#!Poem is William Blake's "Song of Innocence"

#!Creating an array

$poem[0] = "Piping down ";
$poem[1] = "the valleys ";
$poem[2] = "wide";

print $poem[0].$poem[1].$poem[2]."\n";

#! Apending to an array element element by element.


$poem[3] = $poem[0];
$poem[3] .= $poem[1];
$poem[3] .= $poem[2];

print $poem[3]."\n";

#!Backwards counting of arrays


print $poem[-4].$poem[-3].$poem[-2]."\n";

#! Filling out an array in masse

@array = ("Piping songs ", "of " , "pleasant glee");

print $array[0]." ".$array[1]." ".$array[2]."\n";