my $score = 1;
my $A1 = 0;
my @A = (0, 0, 0, 0);
raberu_1:
    @A = (
    ($score % 2),
    ($score % 3),
    ($score % 5),
    ($score % 7),
    );
    if ($score < 121) {
        print $score;
        if ($score == 1) {
            print "→x";
        } elsif ($A[0] == 0 && $score != 2) {
            print "→x";
        } elsif ($A[1] == 0 && $score != 3) {
            print "→x";
        } elsif ($A[2] == 0 && $score != 5) {
            print "→x";
        } elsif ($A[3] == 0 && $score != 7) {
            print "→x";
        } else {
            print "→o";
        }
        print "\n";
        $score = $score + 1;
        goto raberu_1;
    }