Mode function in Perl - perl

Question

I need help with creating the mode function in Perl. I have written a code using help from different sources but every time the value differs.
Mode - The maximum frequency of occurrence of an element in an array
Current Code -
#array = <STDIN>;
#sorted = sort { $a <=> $b } #array ;
for $i(#sorted)
{
$cnt =0;
for $j(#sorted)
{
if($i eq $j)
{
$cnt = $cnt + 1;
$data{$i}= $cnt;
}
}
}
#modes = sort { $data{$a} <=> $data{$b} } keys %data;
$mode = $modes[-1];

Answer 1

Having cleaned up your indentation and added use strict and use warnings, I get the following code.
#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
my #array = <STDIN>;
my #sorted = sort { $a <=> $b } #array ;
my %data;
for my $i (#sorted) {
my $cnt = 0;
for my $j (#sorted) {
if ($i eq $j) {
$cnt = $cnt + 1;
$data{$i}= $cnt;
}
}
}
my #modes = sort { $data{$a} <=> $data{$b} } keys %data;
say "The mode is: $modes[-1]";
And that seems to work correctly. So, perhaps, you need to explain the problem in a little more detail.
Update: Ok, so I think I now understand your problem - even though you really haven't said what it is very clearly.
If there are two potential values for the mode (i.e. two numbers that appear the same number of times) then you want the smallest one. And your current solution picks one of the potential values at random.
The problem is this line:
#modes = sort { $data{$a} <=> $data{$b} } keys %data;
This sorts the hash by the number of times the values appear. But if multiple values appear the same number of time, they can appear in any order - so you'll get a seemingly random number out of the end.
The solution is to add more intelligence to the sort so that in case of a tie, the smaller key sorts last. That would look like this:
my #modes = sort {
$data{$a} <=> $data{$b}
or
$b <=> $a
} keys %data;