sub printSand{
    for my $inner_arrayref (@_){
       for my $inner_element (@$inner_arrayref){
            print $inner_element;
       }
       print "\n";
    }
}

##</code><code>##

  print join("",@$inner_arrayref),"\n";