gistfile1.txt

my @frames;
my $*current;

sub frame(&inner) {
    my $*current = [];
    &inner();
    @frames.push: $*current;
}

sub hit($n) {
    $*current.push: $n
}

sub strike {
    hit(10)
}

## actual code
frame {
    hit 6;
    hit 2;
}

frame {
    hit 7;
    hit 3;
}

frame {
    strike;
}
##############

say @frames.perl;