Select Code to Download

sub returnrec {
   my ($i,$record);
...
   }
   return $record;
}

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