#!/usr/local/bin/perl
print ("Enter the array, one item at a time.\n");
print ("Enter an ^Z to quit.\n");
@array = <STDIN>;
print (@array,"\n");
print (@array[0..@array]);
print ('press ENTER to EXIT');
$in = <STDIN>;