#!/usr/bin/perl

use warnings;
use strict;

my %hash = (
  A => "B",
  C => "D",
  E => "F",
);

print keys %hash;