print map{ @{$e[$_]}, $/ } @a;