Select Code to Download

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

sub alias { \@_ };

...

    print Dumper \%hash;
}

{
...
}