my $what  = 'E-Mail';
my $email = 'adam@example.org';

print "$what = $email\n";