#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use GD;
use Scalar::Util::Numeric qw(isnum isint isfloat);


my $cgi = new CGI;
my %standort;
my @standorte;
my @Feldnamen = $cgi->param();
print $cgi->header(),
     $cgi->start_html('CGI-Feedback'),
     $cgi->h1('CGI-Feedback vom Programm ',$cgi->i('zeichnen.cgi'));
     foreach my $Feld (@Feldnamen) {
             push (@standorte,{$Feld =>$cgi->param($Feld)});
     }

foreach my  $hash  (@standorte) {
       my $hash_value =   $hash->{standort_1};
       my ($key) = keys(%$hash);
       if ( $key  =~ /stand/i )  {
               print "<br>";
               print keys %$hash;
               print "  ---  ";
               print values %$hash;
               }
       }
}