Select Code to Download

my $arr = ['A -4 C','C -4 B','B -4 A','A -2 C','C -3 B'];
decomp_a2aoa_wth_idx($arr);
...
    return @aoa;
}

$VAR1 = [
    ['A','-4','C',0],
...
    ['C','-3','B',4]
];