print "Values: ", join ", ", $self->get_value1, $self->get_value2, $self->get_value3";
print "\nValues: ";
{
  local $, = ", ";
  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: "
}