use strict;
use warnings;

$! = 1;
my @l_test = (1,2,3,4,5,6,7);

foreach my $l_rec (@l_test) {
    (print '.'), next if ( 4 == $l_rec);
    print $l_rec;
}

##</code><code>##

foreach my $l_rec (@l_test) {
    if ( 4 == $l_rec) {
        print '.';
        next;
    }