#!/usr/bin/perl
use strict;

print "how many points?:";
my $maxpoints = <STDIN>;
chomp $maxpoints;
my %roster;
my $total_figs = 0;
while(<DATA>){
        chomp;
        my ($name, $rank, $value) = split /:/;
        $roster{"$name($rank)"} = $value;
        $total_figs++;
};
my @groups;
foreach my $key (keys(%roster)){
        print "$key: $roster{$key}\n";
        #build armies here!
}
__DATA__
blastaar:v:138
mr fixit:u:104
daredevil:r:30
blob:v:51
boomerang:e:34
wolverine:e:61
skrull commando:v:18