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

##</code><code>##

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