#!/usr/bin/perl
use v5.22;
use overload '""' => 'stringify';
use Data::Dumper;

package oo_test{
	
	sub new{
		my $class = shift;
		my $self = {};
		bless $self, $class;
		return $self;
	}
	
	sub getter{
		my $self = shift;
		while( my $line = <DATA> ){
			chomp $line;
			$self->{$.} = $line;
		}
		return $self;
	}
	
	sub stringify{
		my $self = shift;
		return join(" ", values %$self );
	}
};

package main;
my $test = oo_test->new();
$test->getter();
print $test->stringify;


__DATA__
Hi
How 
Are
You