#!/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";

##</code><code>##

aaaa:bbbb
cccc:dddd

##</code><code>##

[xxx]$ perl groupinfo.pl aaaa groupinfo

##</code><code>##

bbbb