$; = $"; $;{Just=>another=>Perl=>Hacker=>} = $/; print %; ##

##

    $foo{$a, $b, $c}

##

##

    $foo{ join $;, $a, $b, $c }

##

##

    $;{Just=>another=>Perl=>Hacker=>} = $/;

##

##

    $;{Just,another,Perl,Hacker,} = $/;

##

##

    $;{ join ' ', "Just", "another", "Perl", "Hacker", "" }
        = "\n";

##

##

    $;{"Just another Perl Hacker"} = "\n";

##

##

    print %;

##

##

    ("Just another Perl Hacker", "\n")

##

##

    Just another Perl Hacker