my %data = (
  'E-Mail' => 'adam@example.org',
);

while ( my ( $k, $v ) = each %data ) {
  print "$k = $v\n";
}