Or you could not bother with the references at all and just use a simple class method constructor e.g

my %constructors = (
  One => 'new',
  Two => 'new',
);

sub factorish {
    my ( $type, @arguments ) = @_;

    die "No handler for $type."
      unless exists $constructors{ $type }
             and my $method = $constructors{ $type };

    return $type->$method( @arguments );
}
[download]

So the %constructors hash will consist of the class names and the method names of the constructors, simple as that :)
HTH

_________
broquaint