my @keyBitsArr56_PC1 = ();
for my $i (0 .. $#PC_1) {
    $keyBitsArr56_PC1[$i] = $keyBitsArr[$PC_1[$i]-1];
}