Help for this page

Select Code to Download


  1. or download this
    
#!/usr/bin/perl
...
    print "@cards[$x]   ,   @newcards[$x]\n";
    $x++;
}
  2. or download this
    #!/usr/bin/perl

...
    return @cards;
}
1;