for my $row ( @hash{ @cols }) {
    push @$row, shift @values
}

##</code><code>##

sub alias { \@_ };

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

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

    print Dumper \%hash;
}

##</code><code>##


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

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

    print Dumper \%hash;
}