use strict;
use warnings;
my %result;

# my @counts=(); # no need of this

foreach (@ARGV) {
  # my $column=0; # no need of this too

  open my $fh, "<", $_ or die "could not open file [$_] $!";
  while (<$fh>) {
              chomp;
              ...