use Data::Dumper ();

my $foo = Foo->new(a => 1, b => 2, c => [qw/apple banana grape/]);

print Data::Dumper::Dumper(\$foo)