use strict;
use warnings;

sub convertKeyValueArrayToHash {
  my ($aData, $sKeyName, $sValueName) = @_;
  my $hData={};
  foreach (@$aData) {
    my $k = $_->{$sKeyName};
    my $v = $_->{$sValueName};
    push @{$hData->{$k}}, $v;
  }
  return $hData;
}