@j = "Just", @a = "another", @p = "Perl", @h = "hacker"; s//@j,/, print

##</code><code>##

@j = ( "Just", @a = "another", @p = "Perl", @h = "hacker" ); s//@j,/, print

##</code><code>##

@j = (( "Just"    )),
@a = (( "another" )),
@p = (( "Perl",   )),
@h = (( "hacker"  )),

##</code><code>##

@j = ( '"Just"', @a = 'another', @p = 'Perl', @h = 'hacker',

##</code><code>##

@j = (( qw)"Just"   )),
@a = (( qw"another" )),
@p = (( qw"Perl"    )),
@h = (( qw"hacker"  )),

##</code><code>##

@j = ((qw)" Just   " )),
@a = ((qw " another" )),
@p = ((qw " Perl   " )),
@h = ((qw " hacker " )),

##</code><code>##

@j = ( '"', 'Just, '"', @a = 'another', @p = 'Perl', @h = 'hacker',

##</code><code>##

$ perl -MO=Deparse japh.pl
@j = (('"', 'Just', '"'), @a = 'another', @p = 'Perl', @h = 'hacker', ()), (s//@j,/, s/" //g), print($_);
- syntax OK

##</code><code>##

@j = ((qw)" Just   " )), @a = ((qw " another" )),
@p = ((qw " Perl   " )), @h = ((qw " hacker " )),
(()),),(s""@j,",s (" )))g), print