for (my $i=0; $i < $#data_list; $i+=2) {
     my $k = $data_list[$i];
     my $v = $data_list[$i+1];
     print "The value for $k is $v\n";
  }