use strict;
use warnings;
use 5.010;

use YAML qw/Dump Bless Load/;
use Data::Dumper;
{
    package Foo;
    use Moose;
    has foo => (
        is  => 'rw',
        isa => 'Any'
    );
    has bar => (
        is  => 'rw',
        isa => 'Any'
    );
}

my $foo = Foo->new(
    foo => 'fooValue',
    bar => 'barValue'
);
print 'Dumper original object: ', Dumper(\$foo);

my $yaml_foo = Dump $foo; # Serialize object to YAML

my $other_foo = Load ($yaml_foo); # Deserialize to Foo

say 'Dumper new object:       ',Dumper(\$other_foo);
say $other_foo->isa('Foo') ? 'I am a Foo!' : 'I do not know what I am.
+';
[download]

Dumper original object: $VAR1 = \bless( {
                   'bar' => 'barValue',
                   'foo' => 'fooValue'
                 }, 'Foo' );
Dumper new object:       $VAR1 = \bless( {
                   'bar' => 'barValue',
                   'foo' => 'fooValue'
                 }, 'Foo' );

I am a Foo!
[download]

Ok... I mean 'work with specific keys of a object'.

Um, whats that mean? What kind of output do you expect, and how does it differ from what you get?