Help for this page
my @aa = split(/\t/); @{$ref}{@head} = @aa;
@{$ref}{@head} = @aa;
my ($field1,$field2,$field3, ... ,$fieldn) = @aa