sub returnrec {
   my ($i,$record);
   for ($i = 0; $i < 11; $i++) {
      $record .= <FILEHANDLE>;
   }
   return $record;
}

##</code><code>##

my @elements = split /\;/, returnrec();