use DBI;

my $sponge = DBI->connect( 'dbi:Sponge:', '', '', { RaiseError => 1 } );
my $sth = $sponge->prepare( 'SELECT name,count(*) FROM ??? GROUP BY name',
                            { NAME => [ 'name', 'count' ],
                              rows => [ [ 'fred    ', 10 ],
                                        [ 'john    ', 20 ],
                                        [ 'jdporter', 30 ],
                                        [ 'jdporter', 40 ], ] } );
while ( my @row = $sth->fetchrow_array ) {
    print join ', ', @row;
    print "\n";
}
__END__
fred    , 10
john    , 20
jdporter, 30
jdporter, 40