Select Code to Download

    
...
        }
    }
}

#!/usr/bin/perl -wT
use strict;
...
}

print "You have same kind of cards: $same_kind\nand $same_color of sam
+e color.\n";