tie my $duration, "Quaint", ( 1 => "qn", 1 => "en",
		 2 => "sn", 4 => "den", 3 => "tsn" );
print $duration, "\n";
print $duration, "\n";
print $duration, "\n";