#!/usr/bin/perl
use warnings;
use strict;
my %users;
$users{mulander}->{email} = 'netprobe@gmail.com';
print "$users{mulander}->{email}\n";