%fields = (
    __mpp    => [ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 ],
)

##</code><code>##

...
    my $self  = { %fields };
...