print a html formated version of print_r including variable name

ar_print.php

<?php
/**
 * Print a datatype structure parsed for browser
 * @param  mixed $ar The datatype
 */
if( !function_exists('ar_print') ){
	function ar_print( &$var ){

		//get variable name
		foreach ($GLOBALS as $k => $v)
			$global_vars[$k] = $v;

		$saved_var = $var;
		$var = !$var;
		$diff = array_udiff_uassoc($global_vars, $GLOBALS, "ar_print_udiff_callback", "ar_print_udiff_callback");
		$name = key($diff);
		$var = $saved_var;
		//end get variable name

		//print stdout
		print '<pre class="ar-print">'."\n";
		print '$'.$name . " &rarr; ";
		print_r($var);
		print '</pre>';
	}
}
if( !function_exists('ar_print_udiff_callback') ){
	function ar_print_udiff_callback($a, $b){

		//bug in php 5.2 - can't test recursive objects, so skip all
		//@link http://stackoverflow.com/questions/3834791/fatal-error-nesting-level-too-deep-recursive-dependency 
		if( PHP_VERSION_ID<=50217 )
			return 0;

		if( $a==$b )
			return 0;
		return ($a > $b) ? 1 : -1;
	}
}