sub split_the_element{
my ($local_fh) = @_;
while (<$local_fh>) {
  chomp;
  my $size = length $_;
  print "size $size\n";
  foreach my $element (split ';', $_) {
     printf $fhout "%s,\n", $element;
  }
 }