sub set_phrase {
        my $self   = shift;
        my $phrase = shift;
        $phrase {$self} = $phrase;
    }
    sub get_phrase {
        my $self   = shift;
        return $phrase {$self};
    }