Select Code to Download

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