sub is_average {
  my $self = shift;
  if( not $self->foreigner and not $self->spouse and $self->income > 3000 )
  {
    return 1;
  }
}