Select Code to Download

my ($probeset_id, $origin, $probeseq, $pip, $gc, $affyscore) = split /
+\t/;

@hash{qw(this that the other)} = qw{some value or another);