while (<>)
{
    $freq{$_}++ for split;
}

##</code><code>##

my $mode = $sorted_array[-1]; ## aren't negative indexes neat?

##</code><code>##

.