my $file = 'filehere.txt';
open(DATA, "$file") || die "Can not open: $!\n";
my @array = (<DATA>);
close(DATA);
open(DATA, "$file") || die "can t open: $!\n";

my %hash = ();
foreach $item (@array)
{
    $hash{$item}++;
	
}
print "$item\t$hash{$item}\n";

close(DATA);