use Object;
my $foo = Object->new;
print "Values: ", join(", ", @$foo{qw(prop1 blorf)}),"\n";
__END__
Values: foo, 1492814598