sub test_parser {	
	
	use Data::Dumper;
	#print Dumper(@_);
		
	my %test = @_;
	
	print Dumper(%test);

}