@list;
while (5>4) {
$item=newItem();

if ($item ne "exit" && $item ne "save" && $item ne "view") {
	push(@list, "$item\n");
}

if ($item eq "save") {
	$file = "file.txt";
	open(GROCERY, ">$file");
	print GROCERY @list;
}

if ($item eq "exit") {
		exit();
}

if ($item eq "view") {
	print @list;
}

}

sub readLine() {
	my ($output);
	$output = <STDIN>;
	chomp($output);
	return($output);
}

sub newItem() {
	print("Next Item: ");
	$item=readLine;
	return($item);
}