I have a datas et and like to do a simple while operation with a Perl script. Here is a small extraction from the dataset: