groupify.pl

#!perl
use strict;
use warnings;
use 5.020;

my $cap = 10; 

my @ints =
qw(
   6.1
   5.4
   3.3
   2.7
   0.6
   0.6
   0.6
   0.6
);

my @groups = ( [] );

sub sum
{
   my $total  = 0;

   $total += $_ for @_;

   return $total;
}

sub run
{
   while ( @ints )
   {   
      my $candidate = shift @ints;

      INNER: for my $group ( @groups )
      {   
         if ( sum( @$group ) + $candidate <= $cap )
         {
            push( @$group, $candidate );

            $candidate = undef;

            last INNER;
         }
      }   

      if ( defined $candidate )
      {   
         push @groups, [ $candidate ];
      }   
   }   

   use Data::Dumper;
   say Dumper \@groups;
}

run();