Help for this page

Select Code to Download

Select or download this

sub chain {
    return @_ > 1 ? { shift() => chain(@_) } : shift();
    }

Select or download this

Win8 Strawberry 5.8.9.5 (32)  Thu 05/13/2021 15:26:20
C:\@Work\Perl\monks
...

^Z
{ foo => undef }