#!/usr/bin/perl

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

my @lines = <DATA>;
my $hashref = eval join '', @lines;
print Dumper $hashref;

__DATA__
{
Klaus => 'daheim',
Peter => 'unterwegs'
}