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

##</code><code>##

$VAR1 = {
          'direct' => 123,
          'normal' => 123,
          'optimized' => 123
        };