Inspired by this

for     ('j','t','l','a','p'),
        ('j','u','s','r','l');
        ('u','s','h','e',' '),
        ('h','p','e','r','a');
        ('t',' ','r',' ','a'),
        ('c','o','t','h','e');
        ('a','n','o','p','e'),
        ('r','k','e','r','l')
->      $a;$b,$c;$d,$e;$f,$g,$h
{ print $a,$b,$c,$d,$e,$f,$g,$h }
[download]