Re: Gift Giving... in Perl?

[Michael G Schwern]

On Tue, Nov 27, 2001 at 06:40:47PM -0500, Michael G Schwern wrote:
>     shuffle \@emails;
>     for (1..@emails) {
>         $santa{$emails[0]} = $emails[1];
>         push @emails, unshift @emails;
                        ^^^^^^^
Make that                 shift

>     }


-- 

Michael G. Schwern   <[EMAIL PROTECTED]>    http://www.pobox.com/~schwern/
Perl Quality Assurance      <[EMAIL PROTECTED]>         Kwalitee Is Job One
"what am I supposed
to be doing at this page?"
bend over, sonny.
        -- stimps