for(qw/
 people.html
 apple.cgi
 foo.tar.gz
 .hidden
/){
  if( (my $fd = index($_,'.')) > 0 ){
      printf "%s =FD=> %s\n", $_ => substr($_,$fd)
  }
  if( (my $ld = rindex($_,'.')) > 0 ){
      printd "%s =LD=> %s\n", $_ => substr($_,$ld)
  }
}