use File::Spec 'catfile';

unlink map catfile($dir, $_), @f[0,1]
  if @file_list > 20;