#!/usr/bin/perl -w

use strict;

my @files = (
        "mmu-miR-16-1-3p 8",
        "mmu-miR-1-1-3p 8",
        "mmu-miR-500",
        "mmu-miR-16-1-3p 8"
);

my %pattern_count;
map $pattern_count{$_}++, @files;
print "filename $_ patten count $pattern_count{$_}\n"
        for keys %pattern_count;