sub fred { $_[0] eq 'ooyah' or 0 }