use File::Basename qw(fileparse);
  my ($path,$file,$suffix) = fileparse ("filename", "\.[^\.]+$");

##</code><code>##

@lines = grep { /\.tif$/i } readdir (DIR);