Stumped with a Posix/Perl Question

[William Ballard <40311.nospam@comcast.net>]

Given:

A - 1
A - 2
B - 1
B - 2

what's the simplest command or perl script to print it as:

A (1, 2)
B (1, 2)

or something equivalent.

Thanks