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

my @array = ( 99999, 34, 67, 976, 432, 99999 );

my $elements = @array;

for ( my $offset = 0; $offset < $elements; $offset++ ) {
  for ( my $length = 0; $length <= $elements; $length++ ) {
    my @to_splice = @array;
    my @spliced = splice @to_splice, $offset, $length;
    print "splice(\@array, $offset, $length) : @spliced\n";
  }
}