Select Code to Download

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

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