my @arr;
foreach (@dat) {
  my @a = split(//,$_);
  @arr =  (@arr, @a);
}