Nim Perl 方法

#!/usr/bin/perl
use strict;
use warnings;
my %nim;

sub Asc(){
    $nim{$a}<=>$nim{$b};
}
sub nim(){
    my $nimcount;
    my $i;
    my $ox;
    for my $key(keys %nim) {
        $nimcount++;
    }
    $i=0;
    for my $key(sort Asc keys %nim) {
        $i++;
        if($i==1){
            $ox=$nim{$key};
        }elsif($i==$nimcount){
            print $key." 取走 ".($nim{$key}-$ox)."个 由 $nim{$key} 变成 $ox 个/n";
        }else{
            $ox^=$nim{$key}
        }

    }
}
%nim=('a'=>1,'b'=>4,'d'=>2);
nim();