use strict;
use warnings;

my @test = qw(no_proc line_to_proc1 line_to_proc2);
for (@test) {
    print $_ . "\n" && next if /no_proc/; #no processing
    print "$_ : in proc \n";              #processing
}