Hi,
I think I found the problem. I found little similar post in this forum. I tried implementing it and it seems to work.
I changed the code in the sub get_leaves function as below and it seems to work fine:
sub show_leaves
{
my ($ar_groups, $aref_files, $F1, $F2, $G1, $G2, $level);
my ($i...