Select Code to Download

    open(FILE, '/location/data/p4.txt') or die "Cant't open file: $!\n
+";

    use strict;
    use warnings;
...
    # ...

    close $fh;

    my %myhash = ();
    my @data = ();
...
    foreach (@data)    {
        %myhash = (@data => $k++);
    }

    my %total_values_by;

...
        chomp $value;
        $total_values_by{$value}++;
    }