#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @data = ( qw/ 2 3 3 3 5 7 8 12 32 44 55 12 3 23 43 33 1 4 25 43 42 1 4 5 3 3 3 /);

my $mode = mode( { NUMBERS => \@data } );

sub mode {
    my %opt = %{ shift @_ };
    print Dumper \%opt;
}

__END__