if ($thread_data[4] =~ m/$in{for}/i) {
    print $thread_data[0];
}