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