@cols = qw(min max sum min max sum);;
@values = qw(1 3 4 7 8  9);;

push @{ $hash{ $cols[ $_ ] } }, $values[ $_ ] for 0 .. $#values;;

pp \%hash;;
{ max => [3, 8], min => [1, 7], sum => [4, 9] }