sub sub6 {             #perl ack
    my $p  = $_[0];    #pattern
    my $mR = $_[1];    #more rows
    my @values;
    my $time   = [gettimeofday];
    my @valori = qx (ack -C $mR "$p" textMatchInAfile.txt)
      or die "system @values` failed: $?";
    say 'number of values found with ack' . $#valori;
    say 'time sub6 ack' . tv_interval($time);
}