#!/usr/bin/perl -w
use strict;

package Word;
sub new
{	my $classname = shift;
	my $self = {};
	$self->{stem} = shift;
	$self->{english} = shift;
	bless $self, $classname;
	return $self;
}

package Noun;
our @ISA = "Word";
sub new
{	my $classname = shift;
	my $self = {};
	bless $self, $classname;
	$self = $self->SUPER::new(shift, shift);
	$self->{gender} = shift;
	$self->{nom_sg} = shift;
	$self->{gen_sg} = shift;
	return $self;
}

package main;
my $w = new Noun("ai(=m-", "blood", "n", "a", "atos");
print $w->{english};