use Data::Dumper; print Dumper { normal => $self->a(), optimized => $self->b(), direct => $self->c(), };