#!/usr/bin/perl -slw

use strict;
use List::MoreUtils qw(uniq);

my %count;
my (@nums) = uniq 9.2.11, 9.2.11, 9.2.11, 9.4.11, 9.5.11;
foreach my $num (@nums) {
    ++$count{$_} foreach  (@nums);
    sleep 1;
    print $count{$num};
}