sub split_the_element
{
   my ($fh_in) = @_; #or: my $fh_in = shift;
   my @result;
   while (<$fh_in>) 
   {
      chomp;
      foreach my $element (split ';', $_)
      {
          push (@result, $element); 
      }
   }
   return @result;
}