my $hashref = {DATA=>"foo", DATA=>"bar", VALUE=>"Submit"};

use Data::Dumper;
print Dumper $hashref;

__END__
$VAR1 = {
          'VALUE' => 'Submit',
          'DATA' => 'bar'         # where's 'foo'?
        };