use Data::Dumper;

my $A = [[1,2,3],[4,5,6]];
@$A = map { $_, [pop @$_] } @$A;

print Dumper($A);