sub _all_readable {

  for ( @_ ) {
    return 0  if !-r;
  }

  return 1;
}


if ( _all_readable( @list_of_files ) ) {
  # action
}