$ perl x.pl
THIRD: 0188 - 0000007777 - 40
THIRD: 0188 - 0000009980 - 41
THIRD: 0123 - 0000008888 - 50
THIRD: 0123 - 0000009999 - 51