@ary = 0 .. 10;

print "$_\n" for @ary;

print map { $_.$/ } @ary;

print join $/, @ary;

{
    local $, = "\n";
    print @ary;
}

{
    local $" = "\n";
    print "@ary";
}