sub process_file {
    my $file = @_;