my @names = split(/\./, reverse("Pugh.Pugh.Barney.McGrew.Cuthbert.Dibble.Grub"), 6);
foreach(reverse(@names)) {print reverse . "\n";}

__RESULT__
Pugh.Pugh
Barney
McGrew
Cuthbert
Dibble
Grub