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