#!/usr/bin/perl
use warnings;
use 5.12.4;
# USAGE: <perlscript> <*.txt>



my (%hash, $key, $value);
my ($col1, $col5, $sum, $rowdata, $line, $outfile, $infile, @column5);



foreach my $file (@ARGV) {
        
    #name output file
    $outfile = $file . '.csv';
    
    #file check
    die "Oops! A file called '$outfile' already exists.\n" if -e $outfile;
    open (IN,  "<", "$file" )       or die "Cannot open file $!";
    open (OUT, ">", "$outfile")     or die "Cannot open file: $outfile $!";
    
    while (<IN>) {

        chomp ($line = $_);
        next if $line =~ /NoCoordinateCount.*/;
        next if $line =~ /^$/;
        ($col1, undef, undef, undef, $col5 ) = split(/\s/, $line);
        $sum += $col5;
        $key = $col1;
        $value = $col5;
        $hash{$key} = $value;
    }
    

    foreach (sort keys %hash) {
        print OUT $_, "," , $hash{$_}/$sum, "\n";
    }

    $sum = 0; #reset sum for each file


}