use Data::Dumper;
$Data::Dumper::Useqq=1; #invisible characters are shown
print Dumper($event_method);