##
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/ ]
);