#!/usr/bin/perl
# use v5.10; 
 use warnings;
#use strict;
 
   $data_length = 5;

  printf "data length = %d\n",$data_length;
  for($k=0; $k <   $data_length; $k++)	# the includes up to $data_length - 1
     {
      printf "loop k = %d\n",$k;
     }# end for()

   $my_rand5 = rand(5);
   $data_length = 5 + $my_rand5;	

  printf "data length = %d\n",$data_length;
  for($k=0; $k <   $data_length; $k++)	# the test includes $k == $data_length
     {
      printf "loop k = %d\n",$k;
     }# end for()