#!/usr/bin/perl -w
use strict;

my $data ='1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36';

my @elements = split (';',$data);

my $number =1;
foreach my $element (@elements)
# or could be:
# foreach my $element (split (';',$data))
{
  print "number=$number\t element=$element\n";
  $number++;
}