Select Code to Download

sub get_3d_xyz { 
    $self = shift;
...

    return @xyz;
}

sub get_3d_xyz { 
    $self = shift;
    return ( $self->get_x(), $self->get_y(), $self->get_z() );
}

use constant SELF => 0;
sub get_3d_xyz { 
...
    , $_[SELF]->get_y()
    , $_[SELF]->get_z() ); 
}