COMP    BUGNO
------  -----
USRINT 	1111
HWARE	1232
USRINT	1021
KERNEL	4384
DRIVER	4894
KERNEL	4398
USRINT	1233

##</code><code>##

our $stmt = qq/select component, bug_no from request where status like 'OPEN'/;
our $sth = $dbh->prepare($stmt);
$sth->execute() or die DBI->errstr;
my %hash;
while( my( $comp, $bug_num ) = $sth->fetchrow_array() ) {
    $hash{ $comp } = $bug_num;
}

##</code><code>##

USRINT 	1111, 1021, 1233
HWARE	1232
KERNEL	4384, 4398
DRIVER	4894