my $tv_horse = Horse -> named("Mr.Ed") etc.