PerlMonks StageNames!

[azatoth]

Name Game in Perl : Enjoy.

#!/usr/bin/perl  
#
#
# Perlmonks stagenames
# feel free to add your own to the arrays

srand;

@first = qw ( King Maximum Duke Cardinal Mister Miss
                    Rocco Rico Lord Captain Major Don);
                    
@second = qw ( Slick Whiplash Leather Dong Contraption
                    Thunder Lightning Viagra Thong );


print "Please enter your name : \n";

    chomp($name = <STDIN>);

$firstnew = $first[rand @first];
$secondnew = $second [rand @second];

print "$name, Your new \"Perlmonks Also Known As\" shall be : $firstne
+w $secondnew\n";

azatoth