my ( undef, @headings ) = split ' ', shift @{[grep /^\s*AUID/, @lines]};