#!/usr/bin/perl
use strict;

use Data::Dumper;

my %hash = (
            farbe => 'gelb',
             form  => 'kreis',
           );

my @array = %hash;

print Dumper \%hash;

print Dumper \@array;