use strict;
use warnings;

my @keyVal1 =qw(something 1 another 2);
my @keyVal2 = qw(SOMETHING 1 ANOTHER);
my %hash1 = @keyVal1;
my %hash2 = @keyVal2;
use Data::Dumper;
print Dumper(\%hash1);
print "\n";
print Dumper(\%hash2);