Hello TJ777, and welcome to the Monastery!

The PerlX::Window module by the Monastery’s own tobyink might provide you with another useful approach:

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";
    }
}
[download]

Output:

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

 2:27 >
[download]

Hope that helps,