perl实例精解的一道题，求解

kexinqw

#!/usr/bin/perl -w
@color=qw('方块' '黑桃' '红桃' '梅花');
@sign=qw(A J Q K);
@num=(2..10);
@num1=(@sign,@num);
$i=0;
foreach $color(@color)
{
    foreach $num1(@num1)
   {
            $v[$i]=$color.$num1;
            #print "${v[$i]}\n";
             $i++;
   }
}
$flag=0;
foreach (1..10){
    $rand=rand(52)+1;
    $rand=int($rand);
    if($flag!=$rand)
   {
        print "$v[$rand]\n";
                $flag=$rand;
   }
    else
    {
        $_--;
    }
}