AoC 2022, day 2

my %scores-p1 = <AX AY AZ BX BY BZ CX CY CZ> Z=> 4, 8, 3, 1, 5, 9, 7, 2, 6;
my %scores-p2 = <AX AY AZ BX BY BZ CX CY CZ> Z=> 3, 4, 8, 1, 5, 9, 2, 6, 7;

with $*IN.lines».subst(/\s+/) -> @A {
    put 'part 1: ', %scores-p1{@A}.sum;
    put 'part 2: ', %scores-p2{@A}.sum;
}