my ($Name,$Email) = @{$ref};

print "My name is  : $Name\n";
print "My email is : $Email\n";