use Test;
use Data::Dumper;

my $t = Test->new();

my $p = $t->one();
print "First: " . Dumper($p) . "\n\n";
$t->two;
print "Second: " . Dumper($p) . "\n\n"; #expecting this to change the $p hashref