Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @newcards = deckof(@cards);
print "@cards[$_],  @newcards[$_]\n" for 0..4;
$x++;

#!/usr/bin/perl -w
use strict;
...
    return @cards;
}
1;