PERL script for generating random Beatnik poetry (aka my first program ever)