%warningPoints = (
    1 => {
        WPLong => 10,
        WPLat  => 20,
    },
    2 => {
        WPLong => 30,
        WPLat  => 40,
    },
    ...
);

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;
use CGI;

my $q = new CGI;

print $q->header(), $q->start_html();

print $q->start_form();
print $q->textfield(-name => 'Latitude', -size => 10, -maxlength => 10, -override => 1);
print $q->textfield(-name => 'Longitude', -size => 10, -maxlength => 10, -override => 1);
print $q->textfield(-name => 'Latitude', -size => 10, -maxlength => 10, -override => 1);
print $q->textfield(-name => 'Longitude', -size => 10, -maxlength => 10, -override => 1);
print $q->submit(-name => 'choice', -value => 'Submit');
print $q->end_form();

my $choice = lc($q->param('choice'));

if ($choice eq 'submit') {
    my @lat  = $q->param('Latitude');
    my @long = $q->param('Longitude');
    print $q->pre(Dumper(\@lat));
    print $q->pre(Dumper(\@long));
}

print end_html();