Select Code to Download

$multiple   = floor($multiple); #round down to int    } else {

...
        $multiple = $length / $number;
...
        $multiple = $length;
    }
...

#!/usr/bin/perl
use warnings;
...
my $ret = split_Slices(\@stuff, $len, 0);
use Data::Dumper;
print Dumper($ret);

./slicer 10
$VAR1 = [
...
            'end' => 100
          }
        ];

./slicer 5
$VAR1 = [
...
            'end' => 101
          }
        ];