sub set_power {
    my $self=shift;
    my $power=shift;
    push @{$self->{POWERS}}, $power;
}
sub get_powers {
    my $self=shift;
    my $num=1;
    foreach my $power ( @{$self->{POWERS}} ) {
    print "$num => $power\n";
    $num++;
    }
    print "\n";
}