#!/usr/bin/perl -w

use strict;

my $handstr = "3S 4H 3C 4C 7D";
my @hand = split(' ',$handstr);
my @sorthand = sort @hand;
my $uniquevals = my $ans = ""; 
my ($faceval,$numdups);

foreach my $card (@sorthand) {
  $faceval = substr($card,0,1);
  $uniquevals .= "$faceval " unless $uniquevals =~ /$faceval/;
}

foreach my $v (split (' ',$uniquevals)) {
  $numdups = $handstr =~ s/$v/$v/g;
  $ans .= "$numdups ";
}

chop $uniquevals; chop $ans;
print "Your hand is ",join(' ',@sorthand),", unique face\n";
print "values $uniquevals.  The hand reduces to $ans.\n";