$ref=$dbh->selectall_arrayref("SELECT transc.id,transc.state,transc.start_date,transc.phys_name,transc.mt_name,org.orgname FROM transc JOIN org ON (transc.org_id = org.id) WHERE ( transc.state = 4 AND transc.qa_name='$userinfo{name}' ) OR ( transc.state = 2 AND transc.mt_name='$userinfo{name}' ) ORDER BY transc.id"); foreach my $x (@{$ref}) { my $compdis = (filesexist($$x[0],"t") ? "" : qq{disabled="disabled"}); $$x[2]=~s/...$//; $selfjobs .= qq{$$x[0]$whichtype{$$x[1]}$$x[2]$$x[5]$$x[3]$$x[4]\n}; }