use strict;
use Data::Dumper;
my %hash;

%hash = (key1 => [1],
         key2 => [1],
         key3 => [1]);