my (@data) = q[$thread->{id}, 
               $thread->{name}, 
               $thread->{date},
               $thread->{subj},
               $thread->{day_rate},
               $thread->{msg}];