use Data::Dumper;
$Data::Dumper::Deepcopy = 1;
...

Output:

$VAR1 = {
  'one' => {
			 'array' => [
						  [
							200,
							400
						  ]
						],
			 'tp' => bless( [
							  48,
							  10,
							  2,
							  24,
							  2,
							  '116',
							  4,
							  83,
							  0,
							  1458785448,
							  0
							], 'Time::Piece' )
		   },
  'two' => {
			 'array' => [
						  [
							200,
							400
						  ]
						],
			 'tp' => bless( [
							  48,
							  10,
							  2,
							  24,
							  2,
							  '116',
							  4,
							  83,
							  0,
							  1458785448,
							  0
							], 'Time::Piece' )
		   }
};