my $r='undefined';
foreach my $t (@a)
{
 if ($t) {$r='defined';last}
}
print $r;