{
   my ($variable1, $variable2);
   my @return_details;

   while (my $test = <TESTFILE>) {
      ...
   }
}