#!/usr/local/bin/perl

%groupinfo
    open(IN, "groupinfo") or die "Can't open groupinfo: $!";
    while (<IN>) {

     chomp($line);
     ($name, $desc) = split /:/, $line;
     if (/$line/){
     $groupinfo{$name} = $desc;

     }
    }
print "%desc";