#!/usr/bin/perl

%myHash = (one => 1, two => 2, three => 3);
print %myHash;