#!/usr/bin/perl   --

use strict;
use warnings;

use Safe;


my $result = Safe->new->reval("[a,b,{perl=>monk}]");

use Data::Dumper;
print Dumper($result);

__END__
$VAR1 = [
          'a',
          'b',
          {
            'perl' => 'monk'
          }
        ];