my ( $header, @records ) = ( split )[ 0, 3, 4, 5, 6, 10, 11 ];