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

##</code><code>##

my @data = '$thread->{id}, $thread->{name}, ' .
  '$thread->{date}, $thread->{subj}, ' .
  '$thread->{day_rate}, $thread->{msg}';

##</code><code>##

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