my $obj = SomeObject->new;

foreach (keys %$obj) {
  print "$_ : $obj->{$_}\n";
}