123  56
123  56
234  45
123  56
678  93
678  93


##</code><code>##


234  45    1
123  56    3
678  93    2


##</code><code>##

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);