my @array = qw/1 2 3 4 5/;
print "@array\n";
{
    local $" = "\n";
    print "@array\n";
}
{
    local $" = " see perlvar ";
    print "@array\n";
}
{
    local $" = "";
    print "@array\n";
}
__OUTPUT__
1 2 3 4 5
1
2
3
4
5
1 see perlvar 2 see perlvar 3 see perlvar 4 see perlvar 5
12345