#!/usr/bin/perl -w

use strict;

my %hash = ( key1 => '1', key1 => '2' );

print join("\n", keys %hash);