# sub new { bless \pop, shift } sub new { my $self = pop; bless \$self, shift } #### MyNumber->new([ 0 .. 100 ]); MyNumber->new({ test => 1}); MyNumber->new(*STDOUT);