#!/usr/local/bin/perl
@array1 = (14, "cheeseburger", 1.23, -7, "toad");
@array2 = @array1;
$array2[1]="cheese";
$count = 1;
while ($count <= 5) {
	print("\t\t\t$array2[$count-1]");
	print("\relement $count: $array1[$count-1] \n");
	$count++;
}
print ('press ENTER to EXIT');
$in = <STDIN>;