Select Code to Download

$ perl -E '
    my @x = (5,1,2,3,4,5,6,7,8,9,8,7,6,5,4,3,2,1,5,9,8,5,7,5,5,5);
...
|5 5|
|5|
||

$ perl -E '
    my @x = (5,1,2,3,4,5,6,7,8,9,8,7,6,5,4,3,2,1,5,9,8,5,7,5,5,5);
...
|4 3 2|
|9 8 5|
|7 5 5|