no strict 'refs';
foreach my $axis ('i', 'j', 'k') {
    *{ $axis } = sub {
        my $self = shift;
        if (@_) {
            $self->{"_$axis"} = shift;
        }
        return $self->{"_$axis"};
    }
}