#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;
$Data::Dumper::Indent = 1;

my @array1 = (1,2,3,4,5,6,7,8,3,5,6,3,8,1,7,8);
my @array3 = sort(@array1);

my @subarrays = ( [] );
my $last = 0;
for ( @array1 ) {
    push(@subarrays, []) if $_ < $last;
    push(@{$subarrays[-1]},$_);
    $last = $_;
}

print Dumper(\@array1);
print Dumper(\@subarrays);
print Dumper(\@array3);

exit;

__END__