my @rows;
while ( my $line = <PROC> ) {
    chomp($line);
    if ( /marke/ ) {
        print "marke";
    }
    elsif ( /marke2/ ) {
        push( @rows, $line);
    }
    else {
        my_function(@rows);
    }
}