Select Code to Download

my @arr =(10,11,12);
my $count =1;
...
#1 10
#2 11
#3 12

while (@tokens)
{
...
   ..next loop causes another pair of $x, $y to be
     used if there are any left in @tokens
}

#!/usr/bin/perl -w
use strict;
...
this item=13 #left in arr 1
this item=14 #left in arr 0
=cut