Use grep:

 
 foreach my $file (grep /\.abc$/, @file_list)
   # @file_list is the list of files, such as from
   # reading a dirhandle
  {
    # call to sub that renames file here
  }
[download]