Simple script for putting in groups in a random way

putingroups.pl

#!/usr/bin/env perl

use Data::Dumper;
use Text::Trim;
use POSIX;
use List::Util qw(shuffle);

my $file = shift;
my @struct;
my @groups;
my @pending;

my $ngroups = 10;

my $count = 0;

open( FILE, $file ) || die "Cannot open $file";

while (<FILE>) {
	
	my ($name, $group) = split( /\t/, $_ );

	my $entry;
	$entry->{"name"} = trim( $name );
	$entry->{"group"} = trim( $group );
	
	push( @struct, $entry );
	
	$count++;
}

close( FILE );

@struct = shuffle @struct;

my $floor  = floor( ( $#struct + 1 ) / $ngroups ); 

my $try = 0;

foreach my $person ( @struct ) {

	@groups = iterate( $ngroups, $person, \@groups, $try );

}


$try = 1;

foreach my $person (  @pending ) {

	@groups = iterate( $ngroups, $person, \@groups, $try );

}

my $iter = 1;
foreach my $group ( @groups ) {
	
	print "* GRUP $iter", "\n";
	print "* ".join( ", ", @{$group->{"groups"}} ). "\n";
	print "\n";
	
	foreach my $name ( sort( @{$group->{"names"} } ) ) {
		print $name, "\n";
	}
	
	print "\n\n";
	
	$iter++;
	
}



sub iterate {
	
	my $ngroups = shift;
	my $person = shift;
	my $pregroups = shift;
	
	my @groups = @{$pregroups};
	
	my $name = $person->{"name"};
	my $group = $person->{"group"};
	
	my $not = 0;
	
	for ( my $i = 0; $i < $ngroups; $i++ ) {
		
		$fgroup = $groups[$i];
		
		if ( defined( $fgroup->{"groups"} ) ) {
			
			my $sgroup = $#{$fgroup->{"groups"}} + 1;
			
			if ( grep( /^$group$/, @{$fgroup->{"groups"}} ) && $try == 0 ) {

				$not = 1;
			
			} else {
				if ( $sgroup < $floor + $try )  {
				
					push( @{$fgroup->{"groups"}}, $group );
					push( @{$fgroup->{"names"}}, $name );
					$groups[$i] = $fgroup;

					$not = 0;
					
					last;
				}
			}
			
			
		} else {
			push( @{$fgroup->{"groups"}}, $group );
			
			push( @{$fgroup->{"names"}}, $name );
			$groups[$i] = $fgroup;

			$not = 0 ;
			
			last;

		}
		
		
	}
	
	
	if ( $not > 0 ) {
		push( @pending, $person );
	}
	
	return @groups;
	
}