Help for this page

Select Code to Download

Select or download this

use Data::Dumper;

...
@$A = map { $_, [pop @$_] } @$A;

print Dumper($A);