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