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