#!/usr/local/bin/perl
@innerlist = (" never ","eat ", "cheese, ", "and ", "I ", "never ");
@outerlist = ("I", @innerlist, "fail!\n");
print @outerlist;

$fred = "Fred";
print (("Hello, " . $fred . "!\n") x 2); 

@array = (5, 7, 11);
($var1, $var2) = @array;
print ("var1 = $var1 var2= $var2\n");

($var1, $var2, $var3) = ("one", "two", "three");
print ("var1 = $var1 var2= $var2 var3= $var3\n");

$length=@array;
print("$length\n");

print ('press ENTER to EXIT');
$in = <STDIN>;