my %hash; @hash{ qw/number score alignment/ } = @cols; #### my %hash; @hash{ qw/number score alignment/ } = map{ \$cols[$_] } 0 .. $#cols; #### my %hash = ( number => '$cols[0]', scorecons => '$cols[1]' alignment => '$cols[2]' ); #### @cols = ( [ qw/value1 number / ], [ qw/value2 scorecons/ ], [ qw/value3 alignment/ ] );