Select Code to Download

#!/usr/bin/perl

...

sub Cover { my $x = $_[0]; my $y = $_[1];
            $ups[$x] = Card(); $ups[$y] = Card(); }