Select Code to Download

        @this = @last;
        @last = ();

        @last = @this;
        @this = ();

my @match = ( $$a1[$b1] );

@{$a1}[ ($b1-$longest+1), $b1 ]

@{$a1}[ ($b1-$longest+1) .. $b1 ]