use Tie::IxHash;

my @array = qw( 9 9 9 1 1 2 2 2 2 3 3 3 3 4 4 );

tie my %hash, 'Tie::IxHash';
$hash{$_}++ for @array;
while( my ($key,$value) = each %hash ){
    print $key, " -- ", $value,"\n";
}
untie %hash;

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @list = qw( 9 9 9 1 1 2 2 2 2 3 3 3 3 4 4 );
my %count;

$count{$_}++ for @list;
print Dumper \%count;

my @unique;
$unique[-1] != $_ and push @unique, $_ for @list;
print Dumper \@unique;

my @set = map { { $_ => $count{$_} } } @unique;
print Dumper \@set;

(!$unique[-1] or $unique[-1] != $_) and push @unique, $_ for @list;