Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  print "number=$number\t element=$element\n";
  $number++;
}

sub split_the_element
{
...
   }
   return @result;
}