sub build_exclude_list {
    my $file = shift;
    return unless defined $file;
    open my $exclude_files, '<', $file or die "Can't open $file: $!";
    # ...
}
# ...

build_exclude_list ($exclude_list_file);