Select Code to Download

#!/usr/bin/perl
use strict;
...

    return @newdeck;
}

sub shuffle {
    my @newdeck;
...
    push @newdeck, @_[-$_ - 1, $_] for 0 .. @_ / 2 - 1;
    return @newdeck;
}

card4 card1 card3 card2
card2 card4 card3 card1