#! perl -sw
use strict;
use Data::Dumper;
my $debug = 1;

sub Lique  {
	my $inforef = shift;
	print Dumper( $inforef ) if $debug;
	# do stuff
	return $inforef;
}


my $fun = Lique(
	{ # << Note!
		name   => 'Test Addon',
		'author'=> 'nutshell',
		email  => 'x@x.com',
		descrip => 'That',
		version => '1.1',
		build => 2
	} # << Note!
);

my $q = Lique(
	{  # << Note!
		name   => 'Test',
		'author'=> 'yeehaw',
		'email' => 'yeehaw@yahoo.com',
		descrip => 'Fun',
		version => '1.11',
		build  => 2
	} # << Note!
);

print Dumper( $fun, $q );

__DATA__
C:\test>202407
$VAR1 = {
          'author' => 'nutshell',
          'descrip' => 'That',
          'build' => 2,
          'version' => '1.1',
          'email' => 'x@x.com',
          'name' => 'Test Addon'
        };
$VAR1 = {
          'author' => 'yeehaw',
          'descrip' => 'Fun',
          'build' => 2,
          'version' => '1.11',
          'email' => 'yeehaw@yahoo.com',
          'name' => 'Test'
        };
$VAR1 = {
          'author' => 'nutshell',
          'descrip' => 'That',
          'build' => 2,
          'version' => '1.1',
          'email' => 'x@x.com',
          'name' => 'Test Addon'
        };
$VAR2 = {
          'author' => 'yeehaw',
          'descrip' => 'Fun',
          'build' => 2,
          'version' => '1.11',
          'email' => 'yeehaw@yahoo.com',
          'name' => 'Test'
        };

C:\test>