use Algorithm::Loops 'MapCar';

my @results = map {
  grep(/\n/,@$_)
    ? MapCar {[@_]} map([split "\n"], @$_)
    : $_
} @AoA;
[download]

broquaint: Thank you very much. I had just seen frodo's link, and was struggling with MapCar myself. That's exactly what I was after.

davis

Kids, you tried your hardest, and you failed miserably. The lesson is: Never try.

i wanna split a file which has 3 char and all 21 values in a single line ie each char has 7 values.so i need to split it as 7 in each line by input file.