use diagnostics; use Data::Dumper; #### print Dumper($value);