sub clientcrgunit {
    my ($self, @stuff) = @_;
    $self->{clientcrgunit} = \@stuff;
}

##</code><code>##

sub clientcrgunit {
 my ($self, @stuff) = @_;
 if ( @stuff == 1 && ref($stuff[0] eq 'ARRAY') ) {
  $self->{clientcrgunit} = $stuff[0];
 } else {
      $self->{clientcrgunit} = \@stuff;
 }
}

##</code><code>##

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); $rose = "smells sweet to degree $n"; *other_name = *rose; print "$other_name\n"'