Tarrot Card Randomizer using Perl