foreach (@commands_run) {
    if($_ =~m/clock/) {
        print "found pattern\n";
        last;   # we have a match, exit loop
    }
}