use strict; use warnings; use Statistics::Lite qw(mode); my @data = (5, 10, 3, -20, 9, 3, 10, 3); my $mode = mode @data; print $mode, "\n";