Select Code to Download

print "Values: ", join ", ", $self->get_value1, $self->get_value2, $se
+lf->get_value3";
print "\nValues: ";
{
...
  print $self->get_value1, $self->get_value2, $self->get_value3"; 
  print "\nValues: ".$self->get_value1, $self->get_value2, $self->get_
+value3"; # notice the . after "\nValues: "
}

use v5.14;
use strict;
use warnings;
...
say "$objAsHash{value}";

say $$obj;