"... i have to designate the numeric values as reported value and reference range so how should i insert that into a database ..."

Other than suggesting 'start_range' and 'end_range' columns, I don't see what the problem is here. Perhaps you could expand on what you're actually having difficulty with.

"... and is the whole script correct ..."

Firstly, Perl will provide much information if you ask it to. Add use strict; and use warnings; to the top of your code. Also add use diagnostics; if you need more verbose output. Running perl -c script_name from the commandline will test the syntax of your code without actually running it.

Here's a few pointers on what you have presented:

• /Equine Profile Plus\s*#(.*?)              .*?(Sample.*?)##/: Unless I physically count them, I've no idea how many spaces you're matching here. For readability and maintainability, use Quantifiers as explained in perlre.
• open (OUT,">>$filename.csv"): I'd suggest opening the file once before you start the while loop.
• Your multiple "if (match) {do substitution}" lines should probably be: $line =~ s/match/do substitution/ (the perlre link above and perlop have details).
• Your multilple instances of $para =~ s/\s\s/ /g; probably only need to be a single instance; also take a look at tr/// in the perlop link above.
• Don't add an ampersand to the front of &loaddata('$filename.csv'); - see perlsub for details.
• Aligning your code will help readability. perlstyle will give you some pointers on this.