{
    my %hash;
    my @cols = qw(min max sum);

    my @values = qw(1 3 4);
    for( map { \$_->[ 0+@$_ ] } @hash{ @cols } ) {
        $$_= shift @values;
    };

    print Dumper \%hash;
}