no strict qw(refs subs);
my $variable = host_mail;
my ${ $variable } = '80.80.80.80';