#!/usr/bin/perl

use strict; # or die

my %groupinfo;

open(IN, "groupinfo") or die "Can't open groupinfo: $!";
while( my $line = <IN> )
{
  my( $name, $desc ) = split/:/,$line;
  $groupinfo{$name} = $desc;
}

print %groupinfo;