my @aa = split(/\t/);
@{$ref}{@head} = @aa;

##</code><code>##

@{$ref}{@head} = @aa;

##</code><code>##

my ($field1,$field2,$field3, ... ,$fieldn) = @aa