How to use perl to parse a text file

Question

I have text file contains:

Lib1 cell1

lib1 cell2

lib1 cell3

lib2 cell4

lib2 cell5

lib2 cell1

lib3 cell1

lib3 cell2