If it weren't for the superfluous right curly at the end:

require Stats;
my $s = Stats->new();
print map { qq|"$_" => '$s->{ $_ }'\n| } keys %s;
[download]