return 1 if ($a[2] eq 'n' or $a[4] neq 'x'); return 0; #### my @return=(); if ($a[2] eq 'n') { push @return,2; } if ($a[2] neq 'x') { push @return,4; } return @return;