Need help with a Perl Script using Pop, Shift, & Push

view story

http://www.unix.com – Hello everyone, I am new to Perl and I am having some issues getting a script to work. I have to create a script that uses an array of 52 cards, "shuffles" the cards (using loops with the pop, shift, and push commands), and prints out the top five. This is not a randomizing of the array just a rearrangement of the array. I have been able to get it to rearrange the array, but not with the result that I would like. I have been working on this for a week and have been running in circles! :wall: Thank you all for your help. Here is the code that I have been given to start: Code: (HowTos)