Help for this page
... while (my $pointer = $sth->fetchrow_hashref){ ... $myfile_number = &cleaner ($pointer->{'file#'}); print $myfile_number; }
... while (my $pointer = $sth->fetchrow_hashref){ ... #print $myfile_number; Don't print here } print $myfile_number;