#!/usr/bin/perl

use strict;
use warnings;
use YAML;

my $string = join "", <>;
my $var = eval $string;

print Dump($var);