Thank you all. I'll go ahead and fix those then, I didn't know there was a need for eq, or a different call (I am totally self-taught here). I like the idea of the givens to by the way.

@Superdoc That would make perfect sense, however I used the rand() for a reason. I need only a roll of 6 at max, and this is simply for random events.

Thanks.

I am totally self-taught here

Pick your poison :)

perlintro, http://learn.perl.org/books/beginning-perl/, http://perl-tutorial.org/, Tutorials: Basic debugging checklist , brian's Guide to Solving Any Perl Problem, Modern Perl book, a loose description of how experienced and effective Perl 5 programmers work....You can learn this too.

Common Perl Pitfalls / perltrap, Read this if you want to cut your development time in half!

Thanks. I read the cut your developing in half one. It totally makes sense now.

Also, I have been using perldocs.perl.org, I think that counts right?