Select Code to Download

@cols[1 .. $#cols] = map(tr /[1,2]/[0,1]/, @cols)

my %data;
while (<DATA>) {
...
    @cols = split('',$cols); ## and then split
    push @{ $data{$id} }, \@cols;
}