print("Type R to re-enter the values or Type E to exit:\n");
my @values;
while (<STDIN>) {

	my $value = $_;
	chomp($value);

	last if $value eq 'E';
	
	if ($value eq 'R') {
		@values = ();
		print "values have been cleared\n";
	} else {
		push(@values, $value);
	}
}

print join(',', @values) . "\n";