$! = 1;
@l_test = (1,2,3,4,5,6,7);
foreach $l_rec (@l_test) { 
	next,print '.' if ( 4 == $l_rec);
	print $l_rec;
}