Help for this page
use strict; use warnings; ... (print '.'), next if ( 4 == $l_rec); print $l_rec; }
foreach my $l_rec (@l_test) { if ( 4 == $l_rec) { print '.'; next; }