#!/usr/bin/perl
use strict;
use warnings;

my @array = qw/ c h e a p s l i d i n g w i n d o w /;

my $elements = @array;

for ( my $offset = 0; $offset < $elements; $offset++ ) { 
  for my $length ( 1 .. 3 ) { 
    next if $length != 3 and $offset >= 1;
        
    my @to_splice = @array;
    my @spliced = splice @to_splice, $offset, $length;
        
    print "@spliced\n";
  }
}

__END__