Perl class capable of creating Markov chains and output based on them