In the interest of TMTOWTDI and as a newbie as well, I also like this approach for displaying without the join:

# print the data
sub printer {
    my @array = @_;
    foreach(@array) {
        print "@{$_}\n";
    }
}
[download]