sub new {  my $class = shift;  my $self = {}; bless( $self, $class );
    $self->{num} = shift;
    $self->{sub_ref} = shift; # JUST PASSING IN....REFERENCE TO EXTERNAL SUB...\&ord_sub
    return $self;  }

sub doit {   
    my $self = shift; 
#QUESTION...CAN I REDUCE THE NEXT TWO LINES TO ONE    
    my $pSub=$self->{sub_ref};
    $pSub->();
}