#!/usr/bin/perl
use Data::Dumper;
my $arg = shift;
my %actualhash = eval $arg;
print Dumper \%actualhash;