my (@list);
	foreach $_ (@list) {