use strict;
use warnings;
use PerlX::Window;

my @array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1);

while (defined window @array, 7)
{
    if ($window[3] == 5)
    {
        print @window[4 .. 6], ', ', reverse(@window[0 .. 2]), "\n";
    }
}


##</code><code>##

 2:27 >perl 2054_SoPW.pl
678, 432
432, 678

 2:27 >