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


# wo auch immer die Daten fuer @elements herkommen moegen
my @elements = qw( an be echna );
my %werte = ();

for my $elem ( @elements ) {
  # pack deine daten in den hash
  $werte{$elem . 'ton' } = $elem;
}

print Dumper( \%werte ), $/;