print DATA join(" ", @$record[0..4]), "\n";