If all you want is a quick and dirty way of showing the most repeated element, try this one that doesn't use any temp variables:

$_{$_}++ for @array;
print ( ( sort{ $_{$b} <=> $_{$a} } keys %_ )[0] );
[download]

*Note: %_ isn't guaranteed to be around forever :)

Jasmine