sub shuffle {
    my @newdeck;

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