#!/usr/bin/perl -w

use strict;

my @arr=(1,3,5,2,6,3,7,4,9,2,3,5,1,7);
my %count;
$count{$_}++ for @arr;

print "$_ occured $count{$_} times\n" for sort { $count{$b} <=> $count{$a} || $a <=> $b}
keys %count;
my @uniq = sort keys %count;
print "\nunique values are @uniq\n"