Help for this page

Select Code to Download

Select or download this

$ perl -Mstrict -Mwarnings -le '
    my @fields = qw{a a b c b a};
...
cSET
bPUSH
aPUSH

Select or download this

$ perl -Mstrict -Mwarnings -le '
    my @fields = qw{a a b c b a};
...
cSET
bSET
aSET