open(MAIL, "| $mailprog $eMail
") || die "Can't start mail program.";
print MAIL "From: $FORM{'email'}
($FORM{''})\n";
print MAIL "Subject: Supply Material
Request \n\n";
# PREPARE TO SEND MAIL!
print MAIL "Date:
$FORM{'date'}\n\n";
print MAIL "Requestor:
$FORM{'name'}\n\n";
print MAIL "Phone:
$FORM{'phone'}\n\n";
print MAIL "Department:
$FORM{'depart'}\n\n";
print MAIL "Lab:
$FORM{'lab'} $FORM{'bldg'}\n\n";
print MAIL "Pickup Date:
$FORM{'pdate'}\n\n";
print MAIL "Time:
$FORM{'tt'}\n\n";
print MAIL "Principle Researcher:
$FORM{'pi'}\n\n";
print MAIL "Project #:
$FORM{'pro'}\n\n";
print MAIL "\n_________________________________________________________________\n\n\n\n";
if ($FORM{'p1q1'}) { print
MAIL "Beaker: Pyrex/Kimax
100ml Corning/Kimble
GBE003-A2E:
$FORM{'p1q1'}@$FORM{'p1unit1'}\n\n";}
if ($FORM{'p1q2'}) { print
MAIL "Beaker: Pyrex/Kimax
150ml Corning/Kimble
GBE004-A2E, A2F:
$FORM{'p1q2'}@$FORM{'p1unit2'}\n\n";}
if ($FORM{'p1q3'}) { print
MAIL "Beaker: Pyrex/Kimax
250ml Corning/Kimble
GBE005-A2D, A2F:
$FORM{'p1q3'}@$FORM{'p1unit3'}\n\n";}
if ($FORM{'p1q4'}) { print
MAIL "Beaker: Pyrex/Kimax
400ml Corning/Kimble
GBE006-A2C:
$FORM{'p1q4'}@$FORM{'p1unit4'}\n\n";}
if ($FORM{'p1q5'}) { print
MAIL "Beaker: Pyrex/Kimax
600ml Corning/Kimble
GBE001-A2B:
$FORM{'p1q5'}@$FORM{'p1unit5'}\n\n";}
if ($FORM{'p1q6'}) { print
MAIL "Beaker: Pyrex/Kimax
1L Corning/Kimble
GBE002-A2A, A2F:
$FORM{'p1q6'}@$FORM{'p1unit6'}\n\n";}
if ($FORM{'p1q7'}) { print
MAIL "Beaker: Pyrex/Kimax
2L Corning/Kimble
GBE008-A2A, A2F:
$FORM{'p1q7'}@$FORM{'p1unit7'}\n\n";}
if ($FORM{'p1q8'}) { print
MAIL "Bottle: Amber Wide, w/poly lid
30ml Qorpak
GBO014-A6B:
$FORM{'p1q8'}@$FORM{'p1unit8'}\n\n";}
if ($FORM{'p1q9'}) { print
MAIL "Bottle: Amber Wide, w/poly lid
60ml Qorpak
GBO001-A6B:
$FORM{'p1q9'}@$FORM{'p1unit9'}\n\n";}
if ($FORM{'p1q10'}) { print
MAIL "Bottle: Amber Wide, w/poly lid
120ml Qorpak
GBO002-A6B, A6E:
$FORM{'p1q10'}@$FORM{'p1unit10'}\n\n";}
if ($FORM{'p1q11'}) { print
MAIL "Bottle: Amber Narr, w/teflon lid
120ml Qorpak
GBO003-A6B:
$FORM{'p1q11'}@$FORM{'p1unit11'}\n\n";}
if ($FORM{'p1q12'}) { print
MAIL "Bottle: Amber Narr, w/poly lid
16oz Qorpak
GBO013-A6B:
$FORM{'p1q12'}@$FORM{'p1unit12'}\n\n";}
if ($FORM{'p1q121'}) { print
MAIL "Bottle: Amber Narr, w/poly lid
32oz Qorpak
GBO022-A6B:
$FORM{'p1q121'}@$FORM{'p1unit121'}\n\n";}
if ($FORM{'p1q131'}) { print
MAIL "Bottle: Clear Wide, w/poly lid
16oz Qorpak
GBO021-A6C:
$FORM{'p1q131'}@$FORM{'p1unit131'}\n\n";}
if ($FORM{'p1q13'}) { print
MAIL "Bottle: Clear Wide, w/poly lid
32oz Qorpak
GBO005-A6C, A6A:
$FORM{'p1q13'}@$FORM{'p1unit13'}\n\n";}
if ($FORM{'p1q14'}) { print
MAIL "Bottle: Clear Narr, w/poly lid
16oz Qorpak
GBO004-A6C, A6A:
$FORM{'p1q14'}@$FORM{'p1unit14'}\n\n";}
if ($FORM{'p1q15'}) { print
MAIL "Bottle: Dropper Amber
60ml Qorpak
GBO006-A6B:
$FORM{'p1q15'}@$FORM{'p1unit15'}\n\n";}
if ($FORM{'p1q161'}) { print
MAIL "Bottle: Screw Cap, grad. Pyrex
30ml Corning
GBO023-A6C:
$FORM{'p1q161'}@$FORM{'p1unit161'}\n\n";}
if ($FORM{'p1q16'}) { print
MAIL "Bottle: Screw Cap, grad. Pyrex
100ml Corning
GBO007-A6D, A6E:
$FORM{'p1q16'}@$FORM{'p1unit16'}\n\n";}
if ($FORM{'p1q17'}) { print
MAIL "Bottle: Screw Cap, grad. Pyrex
250ml Corning
GBO008-A6D:
$FORM{'p1q17'}@$FORM{'p1unit17'}\n\n";}
if ($FORM{'p1q18'}) { print
MAIL "Bottle: Screw Cap, grad. Pyrex
500ml Corning
GBO009-A6D, A6E:
$FORM{'p1q18'}@$FORM{'p1unit18'}\n\n";}
if ($FORM{'p1q19'}) { print
MAIL "Bottle: Screw Cap, grad. Pyrex
1L Corning
GBO010-A6D:
$FORM{'p1q19'}@$FORM{'p1unit19'}\n\n";}
if ($FORM{'p1q20'}) { print
MAIL "Bottle: Screw Cap, grad. Pyrex
2L Corning
GBO011-A6D:
$FORM{'p1q20'}@$FORM{'p1unit20'}\n\n";}
if ($FORM{'p1q201'}) { print
MAIL "Bottle: Screw Cap, grad. Pyrex
4L Corning
GBO020-A6C, A6E:
$FORM{'p1q201'}@$FORM{'p1unit201'}\n\n";}
if ($FORM{'p1q21'}) { print
MAIL "Cover Slips: Standard
22mm various
GCO001-A3C:
$FORM{'p1q21'}@$FORM{'p1unit21'}\n\n";}
if ($FORM{'p1q22'}) { print
MAIL "Cuvette: Spec 20
13mm Milton-Roy
GCU002-A3B:
$FORM{'p1q22'}@$FORM{'p1unit22'}\n\n";}
if ($FORM{'p1q23'}) { print
MAIL "Cylinder, Graduated: Pyrex
10ml Corning
GCY002-A3E:
$FORM{'p1q23'}@$FORM{'p1unit23'}\n\n";}
if ($FORM{'p1q24'}) { print
MAIL "Cylinder, Graduated: Red Stripe
10ml Kimble
GCY007-A3E:
$FORM{'p1q24'}@$FORM{'p1unit24'}\n\n";}
if ($FORM{'p1q25'}) { print
MAIL "Cylinder, Graduated: Red Stripe
25ml Kimble
GCY008-A3E:
$FORM{'p1q25'}@$FORM{'p1unit25'}\n\n";}
if ($FORM{'p1q26'}) { print
MAIL "Cylinder, Graduated: Pyrex
50ml Corning
GCY003-A3E:
$FORM{'p1q26'}@$FORM{'p1unit26'}\n\n";}
if ($FORM{'p1q27'}) { print
MAIL "Cylinder, Graduated: Red Stripe
50ml Kimble
GCY009-A3E:
$FORM{'p1q27'}@$FORM{'p1unit27'}\n\n";}
if ($FORM{'p1q28'}) { print
MAIL "Cylinder, Graduated: Pyrex
100ml Corning
GCY004-A4C:
$FORM{'p1q28'}@$FORM{'p1unit28'}\n\n";}
if ($FORM{'p1q29'}) { print
MAIL "Cylinder, Graduated: Red Stripe
100ml Kimble
GCY010-A4C:
$FORM{'p1q29'}@$FORM{'p1unit29'}\n\n";}
if ($FORM{'p1q30'}) { print
MAIL "Cylinder, Graduated: Red Stripe
250ml Kimble
GCY011-A4C:
$FORM{'p1q30'}@$FORM{'p1unit30'}\n\n";}
if ($FORM{'p1q31'}) { print
MAIL "Cylinder, Graduated: Red Stripe
500ml Kimble
GCY012-A4C:
$FORM{'p1q31'}@$FORM{'p1unit31'}\n\n";}
if ($FORM{'p1q32'}) { print
MAIL "Cylinder, Graduated: Pyrex
1L Corning
GCY005-A4C:
$FORM{'p1q32'}@$FORM{'p1unit32'}\n\n";}
if ($FORM{'p1q33'}) { print
MAIL "Cylinder, Grad.: Pyrex, w/Teflon Rim
1L Corning
GCY006-A4C:
$FORM{'p1q33'}@$FORM{'p1unit33'}\n\n";}
if ($FORM{'p1q34'}) { print
MAIL "Cylinder, Graduated: Red Stripe
1L Kimble
GCY013-A4C:
$FORM{'p1q34'}@$FORM{'p1unit34'}\n\n";}
if ($FORM{'p2q1'}) { print
MAIL "Column: Distilling Ts 19/22
200mm
Kimble
GDI001-A3B:
$FORM{'p2q1'}@$FORM{'p2unit1'}\n\n";}
if ($FORM{'p2q101'}) { print
MAIL "Column: Distilling Condensor Ts 19/22
Synthware
GDI002-A3B, C7A:
$FORM{'p2q101'}@$FORM{'p2unit101'}\n\n";}
if ($FORM{'p2q2'}) { print
MAIL "Flask: Culture, Pyrex
125ml Corning
GFL001-A1D:
$FORM{'p2q2'}@$FORM{'p2unit2'}\n\n";}
if ($FORM{'p2q3'}) { print
MAIL "Flask: Erlenmeyer, Pyrex/Kimax
25ml Corning/Kimble
GFL002-A1E:
$FORM{'p2q3'}@$FORM{'p2unit3'}\n\n";}
if ($FORM{'p2q4'}) { print
MAIL "Flask: Erlenmeyer, Ts 16 w/stop
25ml Kimble
GFL018-A1E:
$FORM{'p2q4'}@$FORM{'p2unit4'}\n\n";}
if ($FORM{'p2q5'}) { print
MAIL "Flask: Erlenmeyer, Pyrex/Kimax
50ml Corning/Kimble
GFL003-A1E:
$FORM{'p2q5'}@$FORM{'p2unit5'}\n\n";}
if ($FORM{'p2q6'}) { print
MAIL "Flask: Erlenmeyer, Ts 19 w/stop
50ml Kimble
GFL019-A1E:
$FORM{'p2q6'}@$FORM{'p2unit6'}\n\n";}
if ($FORM{'p2q7'}) { print
MAIL "Flask: Erlenmeyer, Pyrex/Kimax
125ml Corning/Kimble
GFL004-A1D:
$FORM{'p2q7'}@$FORM{'p2unit7'}\n\n";}
if ($FORM{'p2q8'}) { print
MAIL "Flask: Erlenmeyer, Pyrex, Ts 24/40
125ml Corning
GFL014-A1D:
$FORM{'p2q8'}@$FORM{'p2unit8'}\n\n";}
if ($FORM{'p2q9'}) { print
MAIL "Flask: Erlenmeyer, Ts 22 w/stopper
125ml Kimble
GFL020-A1D:
$FORM{'p2q9'}@$FORM{'p2unit9'}\n\n";}
if ($FORM{'p2q10'}) { print
MAIL "Flask: Erlenmeyer, Pyrex/Kimax
250ml Corning/Kimble
GFL005-A1C:
$FORM{'p2q10'}@$FORM{'p2unit10'}\n\n";}
if ($FORM{'p2q11'}) { print
MAIL "Flask: Erlenmeyer, Pyrex, Ts 24/40
250ml Corning
GFL015-A1C:
$FORM{'p2q11'}@$FORM{'p2unit11'}\n\n";}
if ($FORM{'p2q12'}) { print
MAIL "Flask: Erlenmeyer, Pyrex/Kimax
500ml Corning/Kimble
GFL006-A1C, A1F:
$FORM{'p2q12'}@$FORM{'p2unit12'}\n\n";}
if ($FORM{'p2q13'}) { print
MAIL "Flask: Erlenmeyer, Pyrex, Ts 24/40
500ml Corning
GFL016-A1C:
$FORM{'p2q13'}@$FORM{'p2unit13'}\n\n";}
if ($FORM{'p2q14'}) { print
MAIL "Flask: Erlenmeyer, Pyrex/Kimax
1L Corning/Kimble
GFL030-A1B, A1F:
$FORM{'p2q14'}@$FORM{'p2unit14'}\n\n";}
if ($FORM{'p2q15'}) { print
MAIL "Flask: Erlenmeyer, Pyrex, Ts 24/40
1L Corning
GFL017-A1B, A1F:
$FORM{'p2q15'}@$FORM{'p2unit15'}\n\n";}
if ($FORM{'p2q16'}) { print
MAIL "Flask: Erlenmeyer, Ts 32 w/stopper
1L Kimble
GFL021-A1B, A1F:
$FORM{'p2q16'}@$FORM{'p2unit16'}\n\n";}
if ($FORM{'p2q17'}) { print
MAIL "Flask: Erlenmeyer, Pyrex/Kimax
2L Corning/Kimble
GFL007-A1B, A1F:
$FORM{'p2q17'}@$FORM{'p2unit17'}\n\n";}
if ($FORM{'p2q18'}) { print
MAIL "Flask: Erlenmeyer, Pyrex/Kimax
4L Corning/Kimble
GFL031-A1A, A1F:
$FORM{'p2q18'}@$FORM{'p2unit18'}\n\n";}
if ($FORM{'p2q19'}) { print
MAIL "Flask: Erlenmeyer, Pyrex/Kimax
6L Corning/Kimble
GFL008-A1A:
$FORM{'p2q19'}@$FORM{'p2unit19'}\n\n";}
if ($FORM{'p2q20'}) { print
MAIL "Flask: Filtering, w/connector
125ml Kimble
GFL024-A3A:
$FORM{'p2q20'}@$FORM{'p2unit20'}\n\n";}
if ($FORM{'p2q21'}) { print
MAIL "Flask: Filtering, w/connector
500ml Kimble
GFL025-A3A:
$FORM{'p2q21'}@$FORM{'p2unit21'}\n\n";}
if ($FORM{'p2q22'}) { print
MAIL "Flask: Filtering, coated
500ml Corning
GFL022-A3A:
$FORM{'p2q22'}@$FORM{'p2unit22'}\n\n";}
if ($FORM{'p2q23'}) { print
MAIL "Flask: Filtering, w/side arm
500ml Kimble
GFL023-A3A, A3F:
$FORM{'p2q23'}@$FORM{'p2unit23'}\n\n";}
if ($FORM{'p2q24'}) { print
MAIL "Flask: Volumetric, w/cap
10ml Kimble/Corning
GFL026-A3B:
$FORM{'p2q24'}@$FORM{'p2unit24'}\n\n";}
if ($FORM{'p2q25'}) { print
MAIL "Flask: Volumetric, w/cap
25ml Kimble/Corning
GFL027-A3B:
$FORM{'p2q25'}@$FORM{'p2unit25'}\n\n";}
if ($FORM{'p2q26'}) { print
MAIL "Flask: Volumetric, w/cap
50ml Kimble/Corning
GFL028-A3B:
$FORM{'p2q26'}@$FORM{'p2unit26'}\n\n";}
if ($FORM{'p2q27'}) { print
MAIL "Flask: Volumetric, w/cap
100ml Kimble/Corning
GFL029-A3B:
$FORM{'p2q27'}@$FORM{'p2unit27'}\n\n";}
if ($FORM{'p2q28'}) { print
MAIL "Funnel: Buchner, Porcelain
83ml Coors
GFU001-B4B:
$FORM{'p2q28'}@$FORM{'p2unit28'}\n\n";}
if ($FORM{'p2q29'}) { print
MAIL "Funnel: Buchner, Porcelain
100ml Coors
GFU002-B4B:
$FORM{'p2q29'}@$FORM{'p2unit29'}\n\n";}
if ($FORM{'p2q30'}) { print
MAIL "Funnel: Hirsch, Porcelain
42mm Coors
GFU004-B4B:
$FORM{'p2q30'}@$FORM{'p2unit30'}\n\n";}
if ($FORM{'p2q31'}) { print
MAIL "Funnel: Hirsch, Porcelain
78mm Coors
GFU005-B4B:
$FORM{'p2q31'}@$FORM{'p2unit31'}\n\n";}
if ($FORM{'p2q32'}) { print
MAIL "Funnel: Kimax/Pyrex
45mm Corning/Kimble
GFU003-B4B:
$FORM{'p2q32'}@$FORM{'p2unit32'}\n\n";}
if ($FORM{'p2q33'}) { print
MAIL "Funnel: Kimax/Pyrex
50mm Corning/Kimble
GFU006-B4B:
$FORM{'p2q33'}@$FORM{'p2unit33'}\n\n";}
if ($FORM{'p3q1'}) { print
MAIL "Pipet: Pasteur, Borosilicate
5.75 in VWR
GPI006-A5B:
$FORM{'p3q1'}@$FORM{'p3unit1'}\n\n";}
if ($FORM{'p3q2'}) { print
MAIL "Pipet: Pasteur, Borosilicate
9 in VWR
GPI021-A5B:
$FORM{'p3q2'}@$FORM{'p3unit2'}\n\n";}
if ($FORM{'p3q3'}) { print
MAIL "Pipet: Pasteur, Flint w/plug
5.75 in VWR
GPI018-A5B:
$FORM{'p3q3'}@$FORM{'p3unit3'}\n\n";}
if ($FORM{'p3q311'}) { print
MAIL "Pipet: Pasteur, Flint w/plug
9 in VWR
GPI020-A5B:
$FORM{'p3q311'}@$FORM{'p3unit311'}\n\n";}
if ($FORM{'p3q4'}) { print
MAIL "Pipet: Pasteur, Flint
5.75 in Fisher
GPI005-A5B:
$FORM{'p3q4'}@$FORM{'p3unit4'}\n\n";}
if ($FORM{'p3q5'}) { print
MAIL "Pipet: Pasteur, Flint
9 in Fisher
GPI007-A5B:
$FORM{'p3q5'}@$FORM{'p3unit5'}\n\n";}
if ($FORM{'p3q6'}) { print
MAIL "Pipet: Serological, Disposable Sterile
1x0.1 VWR
GPI001-A3D, A4B, C6A:
$FORM{'p3q6'}@$FORM{'p3unit6'}\n\n";}
if ($FORM{'p3q7'}) { print
MAIL "Pipet: Serological, Disposable Sterile
1x0.01 Fisher
GPI002-A3D, A4E, C5A:
$FORM{'p3q7'}@$FORM{'p3unit7'}\n\n";}
if ($FORM{'p3q71'}) { print
MAIL "Pipet: Serological, Disposable Sterile
1x0.01 Corning
GPI029-A4B, C5B:
$FORM{'p3q71'}@$FORM{'p3unit71'}\n\n";}
if ($FORM{'p3q8'}) { print
MAIL "Pipet: Serological, Disposable Sterile
5ml various
GPI003-A3D, A4A:
$FORM{'p3q8'}@$FORM{'p3unit8'}\n\n";}
if ($FORM{'p3q9'}) { print
MAIL "Pipet: Serological, Disposable Sterile
10ml various
GPI004-A3D, A4A:
$FORM{'p3q9'}@$FORM{'p3unit9'}\n\n";}
if ($FORM{'p3q10'}) { print
MAIL "Pipet: Volumetric, Std.
0.5ml various
GPI010-A4D:
$FORM{'p3q10'}@$FORM{'p3unit10'}\n\n";}
if ($FORM{'p3q11'}) { print
MAIL "Pipet: Volumetric, Std.
1ml various
GPI016-A4D:
$FORM{'p3q11'}@$FORM{'p3unit11'}\n\n";}
if ($FORM{'p3q12'}) { print
MAIL "Pipet: Volumetric, Std.
2ml various
GPI011-A4D:
$FORM{'p3q12'}@$FORM{'p3unit12'}\n\n";}
if ($FORM{'p3q13'}) { print
MAIL "Pipet: Volumetric, Std.
3ml various
GPI012-A4D:
$FORM{'p3q13'}@$FORM{'p3unit13'}\n\n";}
if ($FORM{'p3q14'}) { print
MAIL "Pipet: Volumetric, Std.
5ml various
GPI013-A4D:
$FORM{'p3q14'}@$FORM{'p3unit14'}\n\n";}
if ($FORM{'p3q15'}) { print
MAIL "Pipet: Volumetric, Std.
10ml various
GPI014-A4D:
$FORM{'p3q15'}@$FORM{'p3unit15'}\n\n";}
if ($FORM{'p3q16'}) { print
MAIL "Pipet: Volumetric, Std.
20ml various
GPI015-A4D:
$FORM{'p3q16'}@$FORM{'p3unit16'}\n\n";}
if ($FORM{'p3q17'}) { print
MAIL "Pipet: Volumetric, Std.
25ml various
GPI017-A4D:
$FORM{'p3q17'}@$FORM{'p3unit17'}\n\n";}
if ($FORM{'p3q18'}) { print
MAIL "Slide, Microscope: Standard
25x75mm various
GSL001-A3C:
$FORM{'p3q18'}@$FORM{'p3unit18'}\n\n";}
if ($FORM{'p3q19'}) { print
MAIL "Tube: Adapter, Straight
19/22Ts
Kimble
GTU001-A3C:
$FORM{'p3q19'}@$FORM{'p3unit19'}\n\n";}
if ($FORM{'p3q20'}) { print
MAIL "Tube: Centrifuge,Conical
15ml Kimble
GTU002-A3C:
$FORM{'p3q20'}@$FORM{'p3unit20'}\n\n";}
if ($FORM{'p3q21'}) { print
MAIL "Tube: Connecting, Distilling
19/22Ts
Kimble
GTU003-A3B:
$FORM{'p3q21'}@$FORM{'p3unit21'}\n\n";}
if ($FORM{'p3q22'}) { print
MAIL "Tube: Connecting, 3-Way
19/22Ts
Corning
GTU004-A3C:
$FORM{'p3q22'}@$FORM{'p3unit22'}\n\n";}
if ($FORM{'p3q23'}) { print
MAIL "Tube: Culture, Pyrex, w/o rim
13x100mm Corning
GTU005-A5D:
$FORM{'p3q23'}@$FORM{'p3unit23'}\n\n";}
if ($FORM{'p3q24'}) { print
MAIL "Tube: Culture, Borosilicate
10x75mm various
GTU012-A5A, A5D:
$FORM{'p3q24'}@$FORM{'p3unit24'}\n\n";}
if ($FORM{'p3q25'}) { print
MAIL "Tube: Culture, Borosilicate
12x75mm various
GTU006-A5D, A5E:
$FORM{'p3q25'}@$FORM{'p3unit25'}\n\n";}
if ($FORM{'p3q26'}) { print
MAIL "Tube: Culture, Borosilicate
13x100mm various
GTU007-A5C, A5E:
$FORM{'p3q26'}@$FORM{'p3unit26'}\n\n";}
if ($FORM{'p3q261'}) { print
MAIL "Tube: Culture, Borosilicate
15x85mm various
GTU013-A5C, A5E:
$FORM{'p3q261'}@$FORM{'p3unit261'}\n\n";}
if ($FORM{'p3q27'}) { print
MAIL "Tube: Culture, Borosilicate
16x150mm various
GTU010-A5C, A4E, C7A:
$FORM{'p3q27'}@$FORM{'p3unit27'}\n\n";}
if ($FORM{'p3q271'}) { print
MAIL "Tube: Culture, Borosilicate
18x150mm various
GTU014-A5C, A5A:
$FORM{'p3q271'}@$FORM{'p3unit271'}\n\n";}
if ($FORM{'p3q28'}) { print
MAIL "Tube: NMR, 80MHz, 5mm OD
7 in Kontes
GTU011-A3C:
$FORM{'p3q28'}@$FORM{'p3unit28'}\n\n";}
if ($FORM{'p3q29'}) { print
MAIL "Vial: Scintillation, Borosilicate
20ml VWR
GVI001-A6A:
$FORM{'p3q29'}@$FORM{'p3unit29'}\n\n";}
if ($FORM{'p3q30'}) { print
MAIL "Vial: Stopper, Tooled Neck
7dr Kimble
GVI002-A6A:
$FORM{'p3q30'}@$FORM{'p3unit30'}\n\n";}
if ($FORM{'p3q31'}) { print
MAIL "Vial: Specimen
4ml Wheaton
GVI003-A6A:
$FORM{'p3q31'}@$FORM{'p3unit31'}\n\n";}
if ($FORM{'p3q32'}) { print
MAIL "Watch Glass: Pyrex/Kimax
75mm Corning/Kimble
GWA001-A3C:
$FORM{'p3q32'}@$FORM{'p3unit32'}\n\n";}
if ($FORM{'p4q1'}) { print
MAIL "Bottle: Wash Acetone
500ml Fisher
PBO002-B5D, B5E:
$FORM{'p4q1'}@$FORM{'p4unit1'}\n\n";}
if ($FORM{'p4q2'}) { print
MAIL "Bottle: Wash Water
500ml Fisher
PBO003-B5D:
$FORM{'p4q2'}@$FORM{'p4unit2'}\n\n";}
if ($FORM{'p4q3'}) { print
MAIL "Bottle: Polyethylene (non-autoclavable)
1liter Nalge
PBO004-B5D:
$FORM{'p4q3'}@$FORM{'p4unit3'}\n\n";}
if ($FORM{'p4q311'}) { print
"Bottle: Wash Bottle
1 L Nalge
PBO005-B5D:
$FORM{'p4q311'}@$FORM{'p4unit311'}\n\n";}
if ($FORM{'p4q4'}) { print
MAIL "Cap: Culture Tube, Natural PP
13mm various
PCA001-B1C:
$FORM{'p4q4'}@$FORM{'p4unit4'}\n\n";}
if ($FORM{'p4q5'}) { print
MAIL "Filter Unit: Analytic, 0.45 m
115ml Nalge
PFI001-B6B, B6A:
$FORM{'p4q5'}@$FORM{'p4unit5'}\n\n";}
if ($FORM{'p4q6'}) { print
MAIL "Filter Unit: Analytic, 0.45 m
150ml Nalge
PFI004-B6B:
$FORM{'p4q6'}@$FORM{'p4unit6'}\n\n";}
if ($FORM{'p4q7'}) { print
MAIL "Filter Unit: Analytic, 0.2 m
150ml Nalge
PFI002-B6B:
$FORM{'p4q7'}@$FORM{'p4unit7'}\n\n";}
if ($FORM{'p4q8'}) { print
MAIL "Filter Unit: Vacucap 90
0.45um Gelman
PFI003-B6B:
$FORM{'p4q8'}@$FORM{'p4unit8'}\n\n";}
if ($FORM{'p4q9'}) { print
MAIL "Funnel: Powder, Nalgene
65mm Nalge
PFU001-B4A:
$FORM{'p4q9'}@$FORM{'p4unit9'}\n\n";}
if ($FORM{'p4q10'}) { print
MAIL "Funnel: Powder, Nalgene
80mm Nalge
PFU002-B4A:
$FORM{'p4q10'}@$FORM{'p4unit10'}\n\n";}
if ($FORM{'p4q11'}) { print
MAIL "Funnel: Powder, Nalgene
150mm Nalge
PFU004-B4A:
$FORM{'p4q11'}@$FORM{'p4unit11'}\n\n";}
if ($FORM{'p4q12'}) { print
MAIL "Funnel: Buchner, Nalgene
70mm Nalge
PFU003-B4A:
$FORM{'p4q12'}@$FORM{'p4unit12'}\n\n";}
if ($FORM{'p4q13'}) { print
MAIL "Petri Plate
60x15mm various
PPE001-B1B, B1A:
$FORM{'p4q13'}@$FORM{'p4unit13'}\n\n";}
if ($FORM{'p4q14'}) { print
MAIL "Petri Plate: Treated culture dish
60x15mm various
PPE004-NONE:
$FORM{'p4q14'}@$FORM{'p4unit14'}\n\n";}
if ($FORM{'p4q15'}) { print
MAIL "Petri Plate
100x15mm
VWR PPE002-262D:
$FORM{'p4q15'}@$FORM{'p4unit15'}\n\n";}
if ($FORM{'p4q16'}) { print
MAIL "Petri Plate: For NB Pourer
100x15mm Valmark
PPE003-262D:
$FORM{'p4q16'}@$FORM{'p4unit16'}\n\n";}
if ($FORM{'p4q17'}) { print
MAIL "Pipet: Polystyrene, Disposable
1x0.1 various
PPI017-B7C, B7D, B7E:
$FORM{'p4q17'}@$FORM{'p4unit17'}\n\n";}
if ($FORM{'p4q18'}) { print
MAIL "Pipet: Polystyrene, Disposable
1x0.01 various
PPI001-B7D, B7E:
$FORM{'p4q18'}@$FORM{'p4unit18'}\n\n";}
if ($FORM{'p4q19'}) { print
MAIL "Pipet: Polystyrene, Disposable
5ml various
PPI002-B7C, B7E:
$FORM{'p4q19'}@$FORM{'p4unit19'}\n\n";}
if ($FORM{'p4q20'}) { print
MAIL "Pipet: Polystyrene, Disposable
10ml various
PPI003-B7B, B7A:
$FORM{'p4q20'}@$FORM{'p4unit20'}\n\n";}
if ($FORM{'p4q21'}) { print
MAIL "Pipet: Polystyrene, Disposable
25ml various
PPI004-B7B, B7A:
$FORM{'p4q21'}@$FORM{'p4unit21'}\n\n";}
if ($FORM{'p4q22'}) { print
MAIL "Pipet: Transfer, Sterile
5ml various
PPI005-B1A:
$FORM{'p4q22'}@$FORM{'p4unit22'}\n\n";}
if ($FORM{'p4q23'}) { print
MAIL "Pipet Tip: Gilson Rain P2&P10, 96/Box
.1-10ul
various
PPI008-B2D, B2E:
$FORM{'p4q23'}@$FORM{'p4unit23'}\n\n";}
if ($FORM{'p4q24'}) { print
MAIL "Pipet Tip: Gilson Rain P2&P10, Bulk
.1-10ul
various
PPI014-B2C:
$FORM{'p4q24'}@$FORM{'p4unit24'}\n\n";}
if ($FORM{'p4q25'}) { print
MAIL "Pipet Tip: Epp Ult Micro, Bulk
.5-10ul various
PPI011-B2C, B2E:
$FORM{'p4q25'}@$FORM{'p4unit25'}\n\n";}
if ($FORM{'p4q26'}) { print
MAIL "Pipet Tip: Gel Rack, Box
200ul various
PPI010-NONE:
$FORM{'p4q26'}@$FORM{'p4unit26'}\n\n";}
if ($FORM{'p4q27'}) { print
MAIL "Pipet Tip: Universal, Bulk Yellow
200ul VWR
PPI009-B2C, B2E, C6B, C7B:
$FORM{'p4q27'}@$FORM{'p4unit27'}\n\n";}
if ($FORM{'p4q28'}) { print
MAIL "Pipet Tip: Univ, Box Yellow Sterile
200ul various
PPI006-B2D, B3A:
$FORM{'p4q28'}@$FORM{'p4unit28'}\n\n";}
if ($FORM{'p4q29'}) { print
MAIL "Pipet Tip: Universal, Bulk Blue
1000ul VWR
PPI012-B2B, C7B:
$FORM{'p4q29'}@$FORM{'p4unit29'}\n\n";}
if ($FORM{'p4q30'}) { print
MAIL "Pipet Tip: Universal, Bulk Blue
1000ul Fisher/Wheaton
PPI013-B2B:
$FORM{'p4q30'}@$FORM{'p4unit30'}\n\n";}
if ($FORM{'p4q31'}) { print
MAIL "Pipet Tip: Universal, Box Blue
1000ul various
PPI007-B2A:
$FORM{'p4q31'}@$FORM{'p4unit31'}\n\n";}
if ($FORM{'p4q32'}) { print
MAIL "Pipet Tip: Eppendorf, Box
1000ul various
PPI016-B2A:
$FORM{'p4q32'}@$FORM{'p4unit32'}\n\n";}
if ($FORM{'p4q33'}) { print
MAIL "Pipet Tip: Universal, Box Blue Sterile
1000ul various
PPI015-B2A, B2E:
$FORM{'p4q33'}@$FORM{'p4unit33'}\n\n";}
if ($FORM{'p5q1'}) { print
MAIL "Rack: Microfuge, 80 place
2ml VWR
PRA001-B5C:
$FORM{'p5q1'}@$FORM{'p5unit1'}\n\n";}
if ($FORM{'p5q2'}) { print
MAIL "Tube: Microcentrifuge, Clear
1.7ml NatSci/Mµlti-safSeal
PTU002-B3D, B3E:
$FORM{'p5q2'}@$FORM{'p5unit2'}\n\n";}
if ($FORM{'p5q3'}) { print
MAIL "Tube: Microcentrifuge, Rainbow
1.7ml NatSci/Mµlti-safSeal
PTU011-B3D, B3E, B5A, B6A, C5B:
$FORM{'p5q3'}@$FORM{'p5unit3'}\n\n";}
if ($FORM{'p5q4'}) { print
MAIL "Tube: Microcentrifuge, Rainbow
1.7ml VWR/Fisher
PTU010-B3D:
$FORM{'p5q4'}@$FORM{'p5unit4'}\n\n";}
if ($FORM{'p5q5'}) { print
MAIL "Tube: Centrifuge, Open-Top, PPCO
13.5ml Nalge
PTU003-B6C:
$FORM{'p5q5'}@$FORM{'p5unit5'}\n\n";}
if ($FORM{'p5q51'}) { print
MAIL "Tube: Centrifuge, Open-Top, PPCO
15ml Nalge
PTU021-B6C:
$FORM{'p5q51'}@$FORM{'p5unit51'}\n\n";}
if ($FORM{'p5q6'}) { print
MAIL "Tube: Centrifuge, Conical Polystyrene
15ml various
PTU005-B3C:
$FORM{'p5q6'}@$FORM{'p5unit6'}\n\n";}
if ($FORM{'p5q7'}) { print
MAIL "Tube: Centrifuge, Conical Polypropyl
15ml various
PTU004-B3C, B3E:
$FORM{'p5q7'}@$FORM{'p5unit7'}\n\n";}
if ($FORM{'p5q8'}) { print
MAIL "Tube: Centrifuge, Conical Polypropyl
50ml various
PTU006-B3C, B6E, C6C:
$FORM{'p5q8'}@$FORM{'p5unit8'}\n\n";}
if ($FORM{'p5q81'}) { print
MAIL "Tube: Culture, w/Caps
12x75mm-5ml
VWR PTU028-B6C:
$FORM{'p5q81'}@$FORM{'p5unit81'}\n\n";}
if ($FORM{'p5q9'}) { print
MAIL "Tube: Culture, w/Caps
17x100mm-14ml
VWR PTU007-B6C,
B6E: $FORM{'p5q9'}@$FORM{'p5unit9'}\n\n";}
if ($FORM{'p5q91'}) { print
MAIL "Tube: Culture, w/Caps
17x100mm-14ml
Falcon
PTU020-B6C:
$FORM{'p5q91'}@$FORM{'p5unit91'}\n\n";}
if ($FORM{'p5q10'}) { print
MAIL "Tube: PCR, Thermowell
.5ml Costar
PTU008-B3D:
$FORM{'p5q10'}@$FORM{'p5unit10'}\n\n";}
if ($FORM{'p5q11'}) { print
MAIL "Vial: Cryogenic, Nalgene
2ml Nalge
PVI001-B1C:
$FORM{'p5q11'}@$FORM{'p5unit11'}\n\n";}
if ($FORM{'p5q12'}) { print
MAIL "Weigh Boat: Polystyrene
Sm various
PWE001-B1D, B1E:
$FORM{'p5q12'}@$FORM{'p5unit12'}\n\n";}
if ($FORM{'p5q13'}) { print
MAIL "Weigh Boat: Polystyrene
Md various
PWE002-B1D, B1E:
$FORM{'p5q13'}@$FORM{'p5unit13'}\n\n";}
if ($FORM{'p5q14'}) { print
MAIL "Weigh Boat: Polystyrene
Lg various
PWE003-B1D, B1E:
$FORM{'p5q14'}@$FORM{'p5unit14'}\n\n";}
if ($FORM{'p6q1'}) { print
MAIL "Acetic Acid, Glacial, 99.7 percent
2.5L various
CAC001-262E:
$FORM{'p6q1'}@$FORM{'p6unit1'}\n\n";}
if ($FORM{'p6q2'}) { print
MAIL "Acetone, HPLC Grade
4L various
CAC003-262E:
$FORM{'p6q2'}@$FORM{'p6unit2'}\n\n";}
if ($FORM{'p6q3'}) { print
MAIL "Acetone, Histological
20L various
CAC010-262E:
$FORM{'p6q3'}@$FORM{'p6unit3'}\n\n";}
if ($FORM{'p6q4'}) { print
MAIL "Acetonitrile, Optima Grade
4L Fisher
CAC006-262E:
$FORM{'p6q4'}@$FORM{'p6unit4'}\n\n";}
if ($FORM{'p6q5'}) { print
MAIL "Acrylamide
500g JT Baker
CAC008-C: $FORM{'p6q5'}@$FORM{'p6unit5'}\n\n";}
if ($FORM{'p6q6'}) { print
MAIL "Acrylamide, Ultrapure
500g US-75820
CAC009-C: $FORM{'p6q6'}@$FORM{'p6unit6'}\n\n";}
if ($FORM{'p6q7'}) { print
MAIL "Agarose, Ultrapure
100g USB
CAG001-C: $FORM{'p6q7'}@$FORM{'p6unit7'}\n\n";}
if ($FORM{'p6q8'}) { print
MAIL "Ammonium Hydroxide, 28-30 percent
2.5L various
CAM001-262A:
$FORM{'p6q8'}@$FORM{'p6unit8'}\n\n";}
if ($FORM{'p6q9'}) { print
MAIL "Bleach, Clorox
1gal Clorox
OBL001-262A:
$FORM{'p6q9'}@$FORM{'p6unit9'}\n\n";}
if ($FORM{'p6q10'}) { print
MAIL "Boric Acid
500g various
CBO001-C: $FORM{'p6q10'}@$FORM{'p6unit10'}\n\n";}
if ($FORM{'p6q11'}) { print
MAIL "Bromine
250ml various
CBR002-262C:
$FORM{'p6q11'}@$FORM{'p6unit11'}\n\n";}
if ($FORM{'p6q12'}) { print
MAIL "Butyl Alcohol
500ml various
CBU001-262E:
$FORM{'p6q12'}@$FORM{'p6unit12'}\n\n";}
if ($FORM{'p6q13'}) { print
MAIL "Butyl Alcohol
4L various
CBU002-262E:
$FORM{'p6q13'}@$FORM{'p6unit13'}\n\n";}
if ($FORM{'p6q14'}) { print
MAIL "sec-Butyl Alcohol
1L various
CBU003-262E:
$FORM{'p6q14'}@$FORM{'p6unit14'}\n\n";}
if ($FORM{'p6q15'}) { print
MAIL "Calcium Chloride, Anhydrous
2.5Kg various
CCA001-C: $FORM{'p6q15'}@$FORM{'p6unit15'}\n\n";}
if ($FORM{'p6q16'}) { print
MAIL "Carbon Tetrachloride
500ml various
CCA002-NONE:
$FORM{'p6q16'}@$FORM{'p6unit16'}\n\n";}
if ($FORM{'p6q17'}) { print
MAIL "Cesium Chloride, Ultrapure
100g US-75822
CCE001-C: $FORM{'p6q17'}@$FORM{'p6unit17'}\n\n";}
if ($FORM{'p6q18'}) { print
MAIL "Chloroform, HPLC
4L various
CCH003-262D:
$FORM{'p6q18'}@$FORM{'p6unit18'}\n\n";}
if ($FORM{'p6q181'}) { print
MAIL "Chloroform, OmniSolv
4L various
CCH001-262D:
$FORM{'p6q181'}@$FORM{'p6unit181'}\n\n";}
if ($FORM{'p6q19'}) { print
MAIL "Chloroform-[D1, 99.8 percent]
100g ICN
CCH002-REF:
$FORM{'p6q19'}@$FORM{'p6unit19'}\n\n";}
if ($FORM{'p6q20'}) { print
MAIL "Cupric Sulfate, 5-Hydrate
500g various
CCU001-C: $FORM{'p6q20'}@$FORM{'p6unit20'}\n\n";}
if ($FORM{'p6q21'}) { print
MAIL "Denhardt Solution
50ml US-70468
CDE001-F3:
$FORM{'p6q21'}@$FORM{'p6unit21'}\n\n";}
if ($FORM{'p6q22'}) { print
MAIL "Dessicant, indicating (wasCDR001)
2.5Kg Drierite
CDE002-C: $FORM{'p6q22'}@$FORM{'p6unit22'}\n\n";}
if ($FORM{'p6q23'}) { print
MAIL "Dessicant, indicating (T.H.E.)
2.0Kg EM Science
CDE003-C: $FORM{'p6q23'}@$FORM{'p6unit23'}\n\n";}
if ($FORM{'p6q24'}) { print
MAIL "Dextrose (Glucose) monohydr
500g various
CGL001-C: $FORM{'p6q24'}@$FORM{'p6unit24'}\n\n";}
if ($FORM{'p6q25'}) { print
MAIL "Dextrose (Glucose) anhydr
500g various
CGL005-C: $FORM{'p6q25'}@$FORM{'p6unit25'}\n\n";}
if ($FORM{'p6q26'}) { print
MAIL "N-N'-Dimethylformamide
1L various
CDI001-262E:
$FORM{'p6q26'}@$FORM{'p6unit26'}\n\n";}
if ($FORM{'p6q27'}) { print
MAIL "N-N'-Dimethylformamide
4L various
CDI002-262E:
$FORM{'p6q27'}@$FORM{'p6unit27'}\n\n";}
if ($FORM{'p6q28'}) { print
MAIL "DNA Sequencing Gel Mix, 6 percent
US-72990
CDN001-C4C:
$FORM{'p6q28'}@$FORM{'p6unit28'}\n\n";}
if ($FORM{'p6q29'}) { print
MAIL "DNA Sequencing Gel Mix, 8 percent
US-70090
CDN002-C4C:
$FORM{'p6q29'}@$FORM{'p6unit29'}\n\n";}
if ($FORM{'p7q1'}) { print
MAIL "Ethanol, 95 percent (190 Proof)
Aaper
CET001-262E-MIKE:
$FORM{'p7q1'}@$FORM{'p7unit1'}\n\n";}
if ($FORM{'p7q2'}) { print
MAIL "Ethanol, 100 percent (200 Proof)
1pt Aaper
CET002-262E:
$FORM{'p7q2'}@$FORM{'p7unit2'}\n\n";}
if ($FORM{'p7q3'}) { print
MAIL "Ethyl Acetate, HPLC solvent
1L various
CET003-262E:
$FORM{'p7q3'}@$FORM{'p7unit3'}\n\n";}
if ($FORM{'p7q4'}) { print
MAIL "EDTA
500g various
CET004-C: $FORM{'p7q4'}@$FORM{'p7unit4'}\n\n";}
if ($FORM{'p7q5'}) { print
MAIL "EDTA, disodium
500g various
CET006-C: $FORM{'p7q5'}@$FORM{'p7unit5'}\n\n";}
if ($FORM{'p7q6'}) { print
MAIL "EDTA, disodium Ultrapure
500g various
CET007-C: $FORM{'p7q6'}@$FORM{'p7unit6'}\n\n";}
if ($FORM{'p7q7'}) { print
MAIL "D(+)-Glucose, monohydrate
500g various
CGL001-C: $FORM{'p7q7'}@$FORM{'p7unit7'}\n\n";}
if ($FORM{'p7q8'}) { print
MAIL "D(+)-Glucose, anhydrous
500g various
CGL005-C: $FORM{'p7q8'}@$FORM{'p7unit8'}\n\n";}
if ($FORM{'p7q9'}) { print
MAIL "Glycerol
1Kg various
CGL002-262D:
$FORM{'p7q9'}@$FORM{'p7unit9'}\n\n";}
if ($FORM{'p7q10'}) { print
MAIL "Glycerol
4L various
CGL003-262D:
$FORM{'p7q10'}@$FORM{'p7unit10'}\n\n";}
if ($FORM{'p7q11'}) { print
MAIL "Glycine
500g various
CGL004-C: $FORM{'p7q11'}@$FORM{'p7unit11'}\n\n";}
if ($FORM{'p7q111'}) { print
MAIL "Glycerin
1L various
CGL005-262D:
$FORM{'p7q111'}@$FORM{'p7unit111'}\n\n";}
if ($FORM{'p7q112'}) { print
MAIL "Glycerin
4L various
CGL006-262D:
$FORM{'p7q112'}@$FORM{'p7unit112'}\n\n";}
if ($FORM{'p7q12'}) { print
MAIL "Hexanes
4L various
CHE001--262E:
$FORM{'p7q12'}@$FORM{'p7unit12'}\n\n";}
if ($FORM{'p7q13'}) { print
MAIL "Hydrobromic Acid
500ml various
CHY004-262B:
$FORM{'p7q13'}@$FORM{'p7unit13'}\n\n";}
if ($FORM{'p7q14'}) { print
MAIL "Hydrochloric Acid
2.5L various
CHY002-262B:
$FORM{'p7q14'}@$FORM{'p7unit14'}\n\n";}
if ($FORM{'p7q15'}) { print
MAIL "Hydrogen Peroxide
1L various
CHY003-NONE: $FORM{'p7q15'}@$FORM{'p7unit15'}\n\n";}
if ($FORM{'p7q16'}) { print
MAIL "Isopropanol
4L various
CIS001-262E:
$FORM{'p7q16'}@$FORM{'p7unit16'}\n\n";}
if ($FORM{'p7q17'}) { print
MAIL "Isopropanol
20L various
CIS002-262E:
$FORM{'p7q17'}@$FORM{'p7unit17'}\n\n";}
if ($FORM{'p7q18'}) { print
MAIL "Magnesium Sulfate, Anhydrous
500g various
CMA001-C: $FORM{'p7q18'}@$FORM{'p7unit18'}\n\n";}
if ($FORM{'p7q19'}) { print
MAIL "Magnesium Sulfate.7H2O
500g various
CMA002-C: $FORM{'p7q19'}@$FORM{'p7unit19'}\n\n";}
if ($FORM{'p7q20'}) { print
MAIL "Methanol, ACS
1L various
CME006-262E:
$FORM{'p7q20'}@$FORM{'p7unit20'}\n\n";}
if ($FORM{'p7q21'}) { print
MAIL "Methanol, ACS
4L various
CME001-262E:
$FORM{'p7q21'}@$FORM{'p7unit21'}\n\n";}
if ($FORM{'p7q22'}) { print
MAIL "Methanol, HPLC
4L various
CME005-262E:
$FORM{'p7q22'}@$FORM{'p7unit22'}\n\n";}
if ($FORM{'p7q23'}) { print
MAIL "Methanol
20L various
CME002-262E:
$FORM{'p7q23'}@$FORM{'p7unit23'}\n\n";}
if ($FORM{'p7q24'}) { print
MAIL "N-N'-Methylenebisacrylamide
100g Acros
CME003-REF:
$FORM{'p7q24'}@$FORM{'p7unit24'}\n\n";}
if ($FORM{'p7q25'}) { print
MAIL "Methylene Chloride, HPLC
4L various
CME004-262D:
$FORM{'p7q25'}@$FORM{'p7unit25'}\n\n";}
if ($FORM{'p7q26'}) { print
MAIL "Mineral Oil, Light
4L various
CMI001-262D:
$FORM{'p7q26'}@$FORM{'p7unit26'}\n\n";}
if ($FORM{'p7q27'}) { print
MAIL "Molecular Sieves, Grade 514
500g various
CMO001-C: $FORM{'p7q27'}@$FORM{'p7unit27'}\n\n";}
if ($FORM{'p7q28'}) { print
MAIL "Nitric Acid, 69-71 percent
2.5L various
CNI001-262B:
$FORM{'p7q28'}@$FORM{'p7unit28'}\n\n";}
if ($FORM{'p8q1'}) { print
MAIL "Pentane, HPLC Grade
4L various
CPE001-262E:
$FORM{'p8q1'}@$FORM{'p8unit1'}\n\n";}
if ($FORM{'p8q2'}) { print
MAIL "pH Buffer, 4.00, Red
500ml various
CPH001-C: $FORM{'p8q2'}@$FORM{'p8unit2'}\n\n";}
if ($FORM{'p8q3'}) { print
MAIL "pH Buffer, 7.00, Yellow
500ml various
CPH002-C: $FORM{'p8q3'}@$FORM{'p8unit3'}\n\n";}
if ($FORM{'p8q4'}) { print
MAIL "pH Buffer, 10.00, Blue
500ml various
CPH003-C: $FORM{'p8q4'}@$FORM{'p8unit4'}\n\n";}
if ($FORM{'p8q5'}) { print
MAIL "Phenol, solid
500g various
n/a--NONE:
$FORM{'p8q5'}@$FORM{'p8unit5'}\n\n";}
if ($FORM{'p8q6'}) { print
MAIL "Phenol, Equilibrated, Ultrapure
400ml US-75829
CPH004-REF:
$FORM{'p8q6'}@$FORM{'p8unit6'}\n\n";}
if ($FORM{'p8q7'}) { print
MAIL "Phosphoric Acid
2.5L various
CPH005-262B:
$FORM{'p8q7'}@$FORM{'p8unit7'}\n\n";}
if ($FORM{'p8q8'}) { print
MAIL "Potassium Acetate
250g various
CPO002-C: $FORM{'p8q8'}@$FORM{'p8unit8'}\n\n";}
if ($FORM{'p8q9'}) { print
MAIL "Potassium Chloride
500g various
CPO001-C: $FORM{'p8q9'}@$FORM{'p8unit9'}\n\n";}
if ($FORM{'p8q10'}) { print
MAIL "Potassium Hydrogen Phthalate
500g
various
CPO003-C: $FORM{'p8q10'}@$FORM{'p8unit10'}\n\n";}
if ($FORM{'p8q11'}) { print
MAIL "Potassium Hydroxide, 45 percent
4L various
CPO004-262A:
$FORM{'p8q11'}@$FORM{'p8unit11'}\n\n";}
if ($FORM{'p8q12'}) { print
MAIL "Potassium Hydroxide, Pellets
500g various
CPO005-C: $FORM{'p8q12'}@$FORM{'p8unit12'}\n\n";}
if ($FORM{'p8q13'}) { print
MAIL "Potassium Iodate
125g various
CPO010-262C:
$FORM{'p8q13'}@$FORM{'p8unit13'}\n\n";}
if ($FORM{'p8q14'}) { print
MAIL "Potassium Iodide
10Kg Fisher
CPO006-C: $FORM{'p8q14'}@$FORM{'p8unit14'}\n\n";}
if ($FORM{'p8q15'}) { print
MAIL "Potassium Permanganate
500g various
CPO007-262C:
$FORM{'p8q15'}@$FORM{'p8unit15'}\n\n";}
if ($FORM{'p8q16'}) { print
MAIL "Potassium Phosphate, Dibasic
500g various
CPO008-C: $FORM{'p8q16'}@$FORM{'p8unit16'}\n\n";}
if ($FORM{'p8q17'}) { print
MAIL "Potassium Phosphate, Mono.
500g various
CPO009-C: $FORM{'p8q17'}@$FORM{'p8unit17'}\n\n";}
if ($FORM{'p8q18'}) { print
MAIL "Silica Gel, Grade 633
1Kg various
CSI001-C: $FORM{'p8q18'}@$FORM{'p8unit18'}\n\n";}
if ($FORM{'p8q19'}) { print
MAIL "Silver Nitrate, Crystal
500g various
CSI003-262C:
$FORM{'p8q19'}@$FORM{'p8unit19'}\n\n";}
if ($FORM{'p8q20'}) { print
MAIL "Sodium Acetate, Anhydrous
500g various
CSO013-C: $FORM{'p8q20'}@$FORM{'p8unit20'}\n\n";}
if ($FORM{'p8q21'}) { print
MAIL "Sodium Acetate, Trihydrate
500g various
CSO001-C: $FORM{'p8q21'}@$FORM{'p8unit21'}\n\n";}
if ($FORM{'p8q22'}) { print
MAIL "Sodium Bicarbonate, molec bio
500g various
CSO014-C: $FORM{'p8q22'}@$FORM{'p8unit22'}\n\n";}
if ($FORM{'p8q23'}) { print
MAIL "Sodium Bicarbonate, Powder
2.5Kg various
CSO002-C: $FORM{'p8q23'}@$FORM{'p8unit23'}\n\n";}
if ($FORM{'p8q24'}) { print
MAIL "Sodium Chloride
500g various
CSO003-C: $FORM{'p8q24'}@$FORM{'p8unit24'}\n\n";}
if ($FORM{'p8q25'}) { print
MAIL "Sodium Chloride
2.5K various
CSO015-NONE:
$FORM{'p8q25'}@$FORM{'p8unit25'}\n\n";}
if ($FORM{'p8q251'}) { print
MAIL "Sodium Chloride
3.0K various
CSO020-C: $FORM{'p8q251'}@$FORM{'p8unit251'}\n\n";}
if ($FORM{'p8q26'}) { print
MAIL "Sodium Citrate.2H2O
500g various
CSO005-C: $FORM{'p8q26'}@$FORM{'p8unit26'}\n\n";}
if ($FORM{'p8q27'}) { print
MAIL "Sodium Hydroxide, Pellets
500g various
CSO006-C: $FORM{'p8q27'}@$FORM{'p8unit27'}\n\n";}
if ($FORM{'p8q28'}) { print
MAIL "Sodium Hydroxide, 50 percent
4L various
CSO004-C: $FORM{'p8q28'}@$FORM{'p8unit28'}\n\n";}
if ($FORM{'p8q29'}) { print
MAIL "Sodium Phosphate, Dibasic
500g various
CSO007-C: $FORM{'p8q29'}@$FORM{'p8unit29'}\n\n";}
if ($FORM{'p8q30'}) { print
MAIL "Sodium Phosphate, Monobasic
500g various
CSO008-C: $FORM{'p8q30'}@$FORM{'p8unit30'}\n\n";}
if ($FORM{'p8q31'}) { print
MAIL "Sodium Sulfate
500g various
CSO009-C: $FORM{'p8q31'}@$FORM{'p8unit31'}\n\n";}
if ($FORM{'p8q32'}) { print
MAIL "Sodium Thiosulfate, Crystal
500g various
CSO010-C: $FORM{'p8q32'}@$FORM{'p8unit32'}\n\n";}
if ($FORM{'p8q33'}) { print
MAIL "Sodium, Pellets
500g various
CSO012-262E-MIKE:
$FORM{'p8q33'}@$FORM{'p8unit33'}\n\n";}
if ($FORM{'p8q34'}) { print
MAIL "Sulfuric Acid, 95-98 percent
2.5L various
CSU001-262B:
$FORM{'p8q34'}@$FORM{'p8unit34'}\n\n";}
if ($FORM{'p8q35'}) { print
MAIL "Sucrose
500g various
CSU002-C: $FORM{'p8q35'}@$FORM{'p8unit35'}\n\n";}
if ($FORM{'p9q1'}) { print
MAIL "Tetrahydrofurnan (THF), cert.
4L various
CTE001-262E:
$FORM{'p9q1'}@$FORM{'p9unit1'}\n\n";}
if ($FORM{'p9q2'}) { print
MAIL "Toluene
4L various
CTO001-262E:
$FORM{'p9q2'}@$FORM{'p9unit2'}\n\n";}
if ($FORM{'p9q3'}) { print
MAIL "Tris, Ultrapure
1Kg US-75825
CTR002-C: $FORM{'p9q3'}@$FORM{'p9unit3'}\n\n";}
if ($FORM{'p9q4'}) { print
MAIL "Tris, NH2C(CH2OH)3 (base)
1Kg various
CTR001-C: $FORM{'p9q4'}@$FORM{'p9unit4'}\n\n";}
if ($FORM{'p9q5'}) { print
MAIL "Urea, molec biol grade
500g various
CUR001-C: $FORM{'p9q5'}@$FORM{'p9unit5'}\n\n";}
if ($FORM{'p9q6'}) { print
MAIL "Urea, Ultrapure
500g US-75826
CUR002-C: $FORM{'p9q6'}@$FORM{'p9unit6'}\n\n";}
if ($FORM{'p10q1'}) { print
MAIL "Agar, Bacto-Agar
1.0 lb Difco
MAG001-C4F:
$FORM{'p10q1'}@$FORM{'p10unit1'}\n\n";}
if ($FORM{'p10q2'}) { print
MAIL "MacConkey Agar
500g Difco
MMA001-C4D: $FORM{'p10q2'}@$FORM{'p10unit2'}\n\n";}
if ($FORM{'p10q3'}) { print
MAIL "Peptone
500g Difco
MPE001-C4D:
$FORM{'p10q3'}@$FORM{'p10unit3'}\n\n";}
if ($FORM{'p10q4'}) { print
MAIL "Tryptic Soy Agar
500g
Difco
MTR001-C4D:
$FORM{'p10q4'}@$FORM{'p10unit4'}\n\n";}
if ($FORM{'p10q5'}) { print
MAIL "Tryptone
500g Difco
MTR002-C4E:
$FORM{'p10q5'}@$FORM{'p10unit5'}\n\n";}
if ($FORM{'p10q6'}) { print
MAIL "Yeast Extract
500g Difco
MYE001-C4E:
$FORM{'p10q6'}@$FORM{'p10unit6'}\n\n";}
if ($FORM{'p11q1'}) { print
MAIL "Applicators: Polyester Fiber
various
OAP001-NONE: $FORM{'p11q1'}@$FORM{'p11unit1'}\n\n";}
if ($FORM{'p11q2'}) { print
MAIL "Applicators: Cotton Fiber
various
OAP002-B1B, B1E:
$FORM{'p11q2'}@$FORM{'p11unit2'}\n\n";}
if ($FORM{'p11q3'}) { print
MAIL "Bleach: Clorox
1gal Clorox
OBL001-262A:
$FORM{'p11q3'}@$FORM{'p11unit3'}\n\n";}
if ($FORM{'p11q4'}) { print
MAIL "Broken Glass Container
lg various
OCO001-NONE:
$FORM{'p11q4'}@$FORM{'p11unit4'}\n\n";}
if ($FORM{'p11q5'}) { print
MAIL "Broken Glass Container
sm various
OCO002-NONE:
$FORM{'p11q5'}@$FORM{'p11unit5'}\n\n";}
if ($FORM{'p11q6'}) { print
MAIL "Brush, Buret cleaning
various
OBR001-B4D:
$FORM{'p11q6'}@$FORM{'p11unit6'}\n\n";}
if ($FORM{'p11q7'}) { print
MAIL "Buret Holder, Talon
VWR OBU003-B5B:
$FORM{'p11q7'}@$FORM{'p11unit7'}\n\n";}
if ($FORM{'p11q8'}) { print
MAIL "Film: Biomax, Scientific Imaging
13x18cm Kodak
OFI001-REF:
$FORM{'p11q8'}@$FORM{'p11unit8'}\n\n";}
if ($FORM{'p11q9'}) { print
MAIL "Film: Biomax, Scientific Imaging
35x43cm Kodak
OFI002-NONE:
$FORM{'p11q9'}@$FORM{'p11unit9'}\n\n";}
if ($FORM{'p11q10'}) { print
MAIL "Film: Polaroid 667
3.25x4.25 in
Polaroid
OFI007-REF:
$FORM{'p11q10'}@$FORM{'p11unit10'}\n\n";}
if ($FORM{'p11q11'}) { print
MAIL "Filter Paper: #1
70mm Whatman
OFI006-B4D:
$FORM{'p11q11'}@$FORM{'p11unit11'}\n\n";}
if ($FORM{'p11q12'}) { print
MAIL "Filter Paper: #2V
150mm Whatman
OFI004-B4D:
$FORM{'p11q12'}@$FORM{'p11unit12'}\n\n";}
if ($FORM{'p11q13'}) { print
MAIL "Filter Paper: #42
70mm Whatman
OFI005-B4D:
$FORM{'p11q13'}@$FORM{'p11unit13'}\n\n";}
if ($FORM{'p11q14'}) { print
MAIL "Safety Glasses
various
OGL001-B4E:
$FORM{'p11q14'}@$FORM{'p11unit14'}\n\n";}
if ($FORM{'p11q15'}) { print
MAIL "Goggles: Polycarbonate
various
OGO001-B4E:
$FORM{'p11q15'}@$FORM{'p11unit15'}\n\n";}
if ($FORM{'p11q16'}) { print
MAIL "Goggles: (Not Chemical Rated)
Sellstrom
OGO002-B4F:
$FORM{'p11q16'}@$FORM{'p11unit16'}\n\n";}
if ($FORM{'p11q17'}) { print
MAIL "Gloves: Latex, Powder-Free, smooth
Sm Microflex,
Evo 1 OGL002-S1C:
$FORM{'p11q17'}@$FORM{'p11unit17'}\n\n";}
if ($FORM{'p11q18'}) { print
MAIL "Gloves: Latex, Powder-Free, smooth
Md Microflex,
Evo 1 OGL003-S1C:
$FORM{'p11q18'}@$FORM{'p11unit18'}\n\n";}
if ($FORM{'p11q19'}) { print
MAIL "Gloves: Latex, Powder-Free, smooth
Lg Microflex,
Evo 1 OGL004-S1C,
C7A: $FORM{'p11q19'}@$FORM{'p11unit19'}\n\n";}
if ($FORM{'p11q20'}) { print
MAIL "Gloves: Latex, Powder-Free, rough
Sm Microflex,
Di. Grip OGL019-S1D,
C1A, C2A, C3A:
$FORM{'p11q20'}@$FORM{'p11unit20'}\n\n";}
if ($FORM{'p11q21'}) { print
MAIL "Gloves: Latex, Powder-Free, rough
Md Microflex,
Di. Grip OGL020-S1D,
C1A: $FORM{'p11q21'}@$FORM{'p11unit21'}\n\n";}
if ($FORM{'p11q22'}) { print
MAIL "Gloves: Latex, Powder-Free, rough
Lg Microflex,
Di. Grip OGL021-S1D,
C7A: $FORM{'p11q22'}@$FORM{'p11unit22'}\n\n";}
if ($FORM{'p11q23'}) { print
MAIL "Gloves: Vinyl, Powdered
Sm various
OGL013-S1A:
$FORM{'p11q23'}@$FORM{'p11unit23'}\n\n";}
if ($FORM{'p11q24'}) { print
MAIL "Gloves: Vinyl, Powdered
Md various
OGL014-S1A:
$FORM{'p11q24'}@$FORM{'p11unit24'}\n\n";}
if ($FORM{'p11q25'}) { print
MAIL "Gloves: Vinyl, Powdered
Lg various
OGL015-S2A:
$FORM{'p11q25'}@$FORM{'p11unit25'}\n\n";}
if ($FORM{'p11q26'}) { print
MAIL "Gloves: Nitrile
Sm various
OGL016-S1B:
$FORM{'p11q26'}@$FORM{'p11unit26'}\n\n";}
if ($FORM{'p11q27'}) { print
MAIL "Gloves: Nitrile
Md various
OGL017-S1B:
$FORM{'p11q27'}@$FORM{'p11unit27'}\n\n";}
if ($FORM{'p11q28'}) { print
MAIL "Gloves: Nitrile
Lg various
OGL018-S1B, S2B, D1A:
$FORM{'p11q28'}@$FORM{'p11unit28'}\n\n";}
if ($FORM{'p11q281'}) { print
MAIL "Gloves: Nitrile
X-Lg
various
OGL022-S2B:
$FORM{'p11q281'}@$FORM{'p11unit281'}\n\n";}
if ($FORM{'p11q29'}) { print
MAIL "Marker: Cryoware, 4 Color Set
various
OMA001-B4C:
$FORM{'p11q29'}@$FORM{'p11unit29'}\n\n";}
if ($FORM{'p12q1'}) { print
MAIL "Needles: 18G Disposable
1.5 in B-D
ONE001-B4E:
$FORM{'p12q1'}@$FORM{'p12unit1'}\n\n";}
if ($FORM{'p12q2'}) { print
MAIL "Needles: 22G Disposable
1 in B-D
ONE002-B4E:
$FORM{'p12q2'}@$FORM{'p12unit2'}\n\n";}
if ($FORM{'p12q3'}) { print
MAIL "Parafilm: Laboratory Film
2 in x 250ft
Am Natl Can
OFI003-S2D:
$FORM{'p12q3'}@$FORM{'p12unit3'}\n\n";}
if ($FORM{'p12q4'}) { print
MAIL "Parafilm: Laboratory Film
4 in x 250ft
Am Natl Can
OFI009-S2D:
$FORM{'p12q4'}@$FORM{'p12unit4'}\n\n";}
if ($FORM{'p12q5'}) { print
MAIL "Pipet Bulb: Pastuer Pipet
2ml various
OBU001-B4C:
$FORM{'p12q5'}@$FORM{'p12unit5'}\n\n";}
if ($FORM{'p12q6'}) { print
MAIL "Pipet Bulb: Universal-The Safety Bulb
Secure Medical
OBU002-B4C:
$FORM{'p12q6'}@$FORM{'p12unit6'}\n\n";}
if ($FORM{'p12q7'}) { print
MAIL "pH Paper: 1.0-4.3 Dual-Tint
17ft JT Baker
OPH001-B4D:
$FORM{'p12q7'}@$FORM{'p12unit7'}\n\n";}
if ($FORM{'p12q8'}) { print
MAIL "pH Paper: 3.5-6.8 Dual-Tint
17ft JT Baker
OPH002-B4D:
$FORM{'p12q8'}@$FORM{'p12unit8'}\n\n";}
if ($FORM{'p12q9'}) { print
MAIL "pH Paper: 5.0-8.0 Dual-Tint
17ft JT Baker
OPH003-B4D:
$FORM{'p12q9'}@$FORM{'p12unit9'}\n\n";}
if ($FORM{'p12q10'}) { print
MAIL "pH Paper: 7.0-10.0 Dual-Tint
17ft JT Baker
OPH004-B4D:
$FORM{'p12q10'}@$FORM{'p12unit10'}\n\n";}
if ($FORM{'p12q11'}) { print
MAIL "pH Paper: 9.5-14.0 Dual-Tint
17ft JT Baker
OPH005-B4D:
$FORM{'p12q11'}@$FORM{'p12unit11'}\n\n";}
if ($FORM{'p12q12'}) { print
MAIL "pH Paper: 1-11 Hydrion
15ft x 2
Micro Essential
OPH006-B4C:
$FORM{'p12q12'}@$FORM{'p12unit12'}\n\n";}
if ($FORM{'p12q13'}) { print
MAIL "Rack: For Test Tube, Wooden
22mm Fisher
ORA001-B5C:
$FORM{'p12q13'}@$FORM{'p12unit13'}\n\n";}
if ($FORM{'p12q14'}) { print
MAIL "Soap: SoftCide, Anti-micro Pump
32oz Stahmer
West. OSO001-C2B,
C2E: $FORM{'p12q14'}@$FORM{'p12unit14'}\n\n";}
if ($FORM{'p12q15'}) { print
MAIL "Soap: SoftCide, Anti-micro Pump
1gal Stahmer
West. OSO003C2B,
C3A: $FORM{'p12q15'}@$FORM{'p12unit15'}\n\n";}
if ($FORM{'p12q16'}) { print
MAIL "Soap: Extran Liquid Dish Soap
1L VWR
OSO002-C2B:
$FORM{'p12q16'}@$FORM{'p12unit16'}\n\n";}
if ($FORM{'p12q161'}) { print
MAIL "Soap: BacDown, Anti-micro Pump
500ml BacDown
OSO004-C2B, C2E:
$FORM{'p12q161'}@$FORM{'p12unit161'}\n\n";}
if ($FORM{'p12q162'}) { print
MAIL "Princeton Separation Spin Columns
Centrisep
OSP001-C4C:
$FORM{'p12q162'}@$FORM{'p12unit162'}\n\n";}
if ($FORM{'p12q17'}) { print
MAIL "Stir Bar: Teflon, Octagonal
1/5 in various
OST005-NONE:
$FORM{'p12q17'}@$FORM{'p12unit17'}\n\n";}
if ($FORM{'p12q18'}) { print
MAIL "Stir Bar: Teflon, Octagonal
1 in various
OST006-NONE:
$FORM{'p12q18'}@$FORM{'p12unit18'}\n\n";}
if ($FORM{'p12q19'}) { print
MAIL "Stir Bar: Teflon, Octagonal
2 in various
OST002-B4C:
$FORM{'p12q19'}@$FORM{'p12unit19'}\n\n";}
if ($FORM{'p13q1'}) { print
MAIL "Table Liner: Kaydry
20 in x 300ft
Kimberly-Clark
OTA001-C4A, C5C:
$FORM{'p13q1'}@$FORM{'p13unit1'}\n\n";}
if ($FORM{'p13q2'}) { print
MAIL "Tape: Autoclave Indicating
.75 x 2160 in
VWR OTA002-B4C:
$FORM{'p13q2'}@$FORM{'p13unit2'}\n\n";}
if ($FORM{'p13q3'}) { print
MAIL "Tape: Label, Assorted Colors
.5 x 500 in
VWR OTA003-B4C:
$FORM{'p13q3'}@$FORM{'p13unit3'}\n\n";}
if ($FORM{'p13q4'}) { print
MAIL "Tape: Label, Assorted Colors
.75 x 500 in
VWR OTA004-B4C:
$FORM{'p13q4'}@$FORM{'p13unit4'}\n\n";}
if ($FORM{'p13q5'}) { print
MAIL "Tape: Teflon
.5 x 300 in
various
OTA005-B4C:
$FORM{'p13q5'}@$FORM{'p13unit5'}\n\n";}
if ($FORM{'p13q6'}) { print
MAIL "Thermometer: Non-Mercury
-20 to 100
various
OTH001-A3C:
$FORM{'p13q6'}@$FORM{'p13unit6'}\n\n";}
if ($FORM{'p13q7'}) { print
MAIL "Kimwipes Tissues
4.5x8.5 in
Kimberly-Clark
OTI002-C2B, 262C:
$FORM{'p13q7'}@$FORM{'p13unit7'}\n\n";}
if ($FORM{'p13q8'}) { print
MAIL "Paper Towels: Multifold
9.25x9.5 in
Acclaim-Envision
OTO002-C2B, 262C:
$FORM{'p13q8'}@$FORM{'p13unit8'}\n\n";}
if ($FORM{'p13q81'}) { print
MAIL "Paper Towels: Multifold
9.25x9.5 in
Kimberly-Clark
OTO005-262C:
$FORM{'p13q81'}@$FORM{'p13unit81'}\n\n";}
if ($FORM{'p13q9'}) { print
MAIL "Tongs Beaker
50-2000mm Humbolt
OTO001-B4C:
$FORM{'p13q9'}@$FORM{'p13unit9'}\n\n";}
if ($FORM{'p13q10'}) { print
MAIL "Tubing: Amber Latex (50ft)
5/16 in various
OTU001-NONE:
$FORM{'p13q10'}@$FORM{'p13unit10'}\n\n";}
if ($FORM{'p13q11'}) { print
MAIL "Tubing: Dialysis,
50ft
Carolina
OTU002-B4C:
$FORM{'p13q11'}@$FORM{'p13unit11'}\n\n";}
if ($FORM{'p13q12'}) { print
MAIL "Water Purification: Nanopure Kit
Type I Barnstead
OFI010-C4A:
$FORM{'p13q12'}@$FORM{'p13unit12'}\n\n";}
if ($FORM{'p13q13'}) { print
MAIL "Water Purification: Q-Pak 2 Kit
Millipore
OFI008-C4A:
$FORM{'p13q13'}@$FORM{'p13unit13'}\n\n";}
if ($FORM{'p14q1'}) { print
MAIL "tRNA, Yeast
50mg Gibco/15401-029
ERN001-F3:
$FORM{'p14q1'}@$FORM{'p14unit1'}\n\n";}
if ($FORM{'p14q2'}) { print
MAIL "Ready Rxn Sequencing Kit
24rxn Applied
Biosys/402123
ERR001-NONE:
$FORM{'p14q2'}@$FORM{'p14unit2'}\n\n";}
if ($FORM{'p14q3'}) { print
MAIL "Ready Rxn Sequencing Kit
100rxn Applied
Biosys/402079
ERR002-F3: $FORM{'p14q3'}@$FORM{'p14unit3'}\n\n";}
if ($FORM{'p14q4'}) { print
MAIL "Big Dye Ready Rxn Kit
100rxn Applied
Biosys/4303152
ERR003-F3:
$FORM{'p14q4'}@$FORM{'p14unit4'}\n\n";}
if ($FORM{'p14q5'}) { print
MAIL "Sequenase v. 2.0 (enzyme)
1000u AmershamUSB/US70775
ESQ001-F3:
$FORM{'p14q5'}@$FORM{'p14unit5'}\n\n";}
if ($FORM{'p14q6'}) { print
MAIL "Sequenase v. 2.0 Sequencing Kit
AmershamUSB/US70770
ESQ002-F3:
$FORM{'p14q6'}@$FORM{'p14unit6'}\n\n";}
if ($FORM{'p15q1'}) { print
MAIL "BamH I
1,000u 220
612-BM-F1:
$FORM{'p15q1'}@$FORM{'p15unit1'}\n\n";}
if ($FORM{'p15q2'}) { print
MAIL "Bgl II
500u 348 767-BM-F1:
$FORM{'p15q2'}@$FORM{'p15unit2'}\n\n";}
if ($FORM{'p15q3'}) { print
MAIL "EcoR I
10,000u 1175
084-BM-F1:
$FORM{'p15q3'}@$FORM{'p15unit3'}\n\n";}
if ($FORM{'p15q4'}) { print
MAIL "EcoR V
2,000u 667145-BM-F1:
$FORM{'p15q4'}@$FORM{'p15unit4'}\n\n";}
if ($FORM{'p15q5'}) { print
MAIL "Hind III
5,000u 656
313-BM-F1:
$FORM{'p15q5'}@$FORM{'p15unit5'}\n\n";}
if ($FORM{'p15q6'}) { print
MAIL "Nde I
1,000u 1040
227-BM-F1:
$FORM{'p15q6'}@$FORM{'p15unit6'}\n\n";}
if ($FORM{'p15q7'}) { print
MAIL "Pst I
3,000u 621
625-BM-F1:
$FORM{'p15q7'}@$FORM{'p15unit7'}\n\n";}
if ($FORM{'p15q8'}) { print
MAIL "Pvu I
100u 650 137-BM-F1:
$FORM{'p15q8'}@$FORM{'p15unit8'}\n\n";}
if ($FORM{'p15q9'}) { print
MAIL "Pvu I
500u 650 129-BM-F1:
$FORM{'p15q9'}@$FORM{'p15unit9'}\n\n";}
if ($FORM{'p15q10'}) { print
MAIL "Sal I (Xma, Rph I)
500u 348 783-BM-F1:
$FORM{'p15q10'}@$FORM{'p15unit10'}\n\n";}
if ($FORM{'p15q11'}) { print
MAIL "Sma I (Xcy, Xma I)
1,000u 220
566-BM-F1:
$FORM{'p15q11'}@$FORM{'p15unit11'}\n\n";}
if ($FORM{'p15q12'}) { print
MAIL "Sph I
200u 1026950-BM-F1:
$FORM{'p15q12'}@$FORM{'p15unit12'}\n\n";}
if ($FORM{'p15q13'}) { print
MAIL "Xba I
1,000u 674
257-BM-F1:
$FORM{'p15q13'}@$FORM{'p15unit13'}\n\n";}
if ($FORM{'p15q14'}) { print
MAIL "Taq DNA Polymerase
100u 1146 165-BM-F1:
$FORM{'p15q14'}@$FORM{'p15unit14'}\n\n";}
if ($FORM{'p15q15'}) { print
MAIL "Taq DNA Polymerase
500u 1146 173-BM-F1:
$FORM{'p15q15'}@$FORM{'p15unit15'}\n\n";}
if ($FORM{'p15q16'}) { print
MAIL "T4 DNA Ligase
100u 481 220-BM-F1:
$FORM{'p15q16'}@$FORM{'p15unit16'}\n\n";}
if ($FORM{'p15q17'}) { print
MAIL "DIG DNA Labeling Mix
50ml 1277 065-BM-F1:
$FORM{'p15q17'}@$FORM{'p15unit17'}\n\n";}
if ($FORM{'p15q18'}) { print
MAIL "Hexanucleotide Mix
100ml 1277
081-BM-F1:
$FORM{'p15q18'}@$FORM{'p15unit18'}\n\n";}
if ($FORM{'p15q19'}) { print
MAIL "Anti-DIG-AP
150u 1093 274-BM-REF:
$FORM{'p15q19'}@$FORM{'p15unit19'}\n\n";}
if ($FORM{'p15q20'}) { print
MAIL "Ampicillin
50g 835 269-BM-REF:
$FORM{'p15q20'}@$FORM{'p15unit20'}\n\n";}
if ($FORM{'p15q21'}) { print
MAIL "Lysozyme
1g 107 255-BM-REF:
$FORM{'p15q21'}@$FORM{'p15unit21'}\n\n";}
if ($FORM{'p15q22'}) { print
MAIL "DNA Molecular Weight Marker II
50ul 236250-BM-F1:
$FORM{'p15q22'}@$FORM{'p15unit22'}\n\n";}
if ($FORM{'p15q23'}) { print
MAIL "DNase I
20,000u 104
132-BM-REF:
$FORM{'p15q23'}@$FORM{'p15unit23'}\n\n";}
if ($FORM{'p15q24'}) { print
MAIL "DNase I, RNase-free
10,000u 776
785-BM-F1:
$FORM{'p15q24'}@$FORM{'p15unit24'}\n\n";}
if ($FORM{'p15q25'}) { print
MAIL "RNase A
25mg 109 142-BM-REF:
$FORM{'p15q25'}@$FORM{'p15unit25'}\n\n";}
if ($FORM{'p15q26'}) { print
MAIL "RNase A
100mg 109 169-BM-REF:
$FORM{'p15q26'}@$FORM{'p15unit26'}\n\n";}
if ($FORM{'p15q27'}) { print
MAIL "RNase H
25u 786 349-BM-F1:
$FORM{'p15q27'}@$FORM{'p15unit27'}\n\n";}
if ($FORM{'p15q28'}) { print
MAIL "RNase Inhibitor
2,000u 799
017-BM-F1:
$FORM{'p15q28'}@$FORM{'p15unit28'}\n\n";}
if ($FORM{'p15q29'}) { print
MAIL "Proteinase K
25mg 161 519-BM-REF:
$FORM{'p15q29'}@$FORM{'p15unit29'}\n\n";}
if ($FORM{'p15q30'}) { print
MAIL "Agarose Gel Extraction Kit
100 rxn 1 696
505-BM-M3C:
$FORM{'p15q30'}@$FORM{'p15unit30'}\n\n";}
if ($FORM{'p15q31'}) { print
MAIL "Shrimp Alkaline Phosphatase
1000u 1 758
250-BM-F1:
$FORM{'p15q31'}@$FORM{'p15unit31'}\n\n";}
if ($FORM{'p15q32'}) { print
MAIL "AMV Reverse Transcriptase
500u 1 459
062-BM-F1:
$FORM{'p15q32'}@$FORM{'p15unit32'}\n\n";}
if ($FORM{'p15q33'}) { print
MAIL "C Therm DNA Polymerase
50 rxn 2 016
311-BM-F1:
$FORM{'p15q33'}@$FORM{'p15unit33'}\n\n";}
if ($FORM{'p15q34'}) { print
MAIL "Complete Mini
25 tabs 1 836
153-BM-REF:
$FORM{'p15q34'}@$FORM{'p15unit34'}\n\n";}
if ($FORM{'p15q35'}) { print
MAIL "Complete Mini, EDTA Free
25 tabs 1 836
170-BM-REF:
$FORM{'p15q35'}@$FORM{'p15unit35'}\n\n";}
if ($FORM{'p15q36'}) { print
MAIL "Expand High-Fidelity PCR System
100u 1 732
641-BM-F1:
$FORM{'p15q36'}@$FORM{'p15unit36'}\n\n";}
if ($FORM{'p15q37'}) { print
MAIL "Expand Long Template PCR System
100u 1 681
834-BM-F1:
$FORM{'p15q37'}@$FORM{'p15unit37'}\n\n";}
if ($FORM{'p15q38'}) { print
MAIL "Fugene 6 Reagent
1 ml 1 814
443-BM-F1:
$FORM{'p15q38'}@$FORM{'p15unit38'}\n\n";}
if ($FORM{'p15q39'}) { print
MAIL "High Pure Plasmid Kit
50 rxns 1 754
777-BM-M3C:
$FORM{'p15q39'}@$FORM{'p15unit39'}\n\n";}
if ($FORM{'p15q40'}) { print
MAIL "High Pure RNA Isolation Kit
50 rxns 1 828
665-BM-M3C:
$FORM{'p15q40'}@$FORM{'p15unit40'}\n\n";}
if ($FORM{'p15q41'}) { print
MAIL "Lumi-Light POD Western Blotting Substrate
for 4000 sq. cm
2 015 200-BM-REF:
$FORM{'p15q41'}@$FORM{'p15unit41'}\n\n";}
if ($FORM{'p15q42'}) { print
MAIL "Lumi-Light Plus Western Blotting Substrate
for 100 sq. cm
2 015 196-BM-REF:
$FORM{'p15q42'}@$FORM{'p15unit42'}\n\n";}
if ($FORM{'p15q43'}) { print
MAIL "PCR Grade Nucleotide Mix
100 rxns 1
581 295-BM-F1:
$FORM{'p15q43'}@$FORM{'p15unit43'}\n\n";}
if ($FORM{'p15q44'}) { print
MAIL "PCR Grade dNtp set
4x25 umol (250umol)
1 969 064-BM-F1:
$FORM{'p15q44'}@$FORM{'p15unit44'}\n\n";}
if ($FORM{'p15q45'}) { print
MAIL "High Pure PCR Template Set
100 rxns 1
796 828-BM-F1:
$FORM{'p15q45'}@$FORM{'p15unit45'}\n\n";}
if ($FORM{'p15q46'}) { print
MAIL "Rapid DNA Ligation Kit
40 rxns 1 635
379-BM-F1:
$FORM{'p15q46'}@$FORM{'p15unit46'}\n\n";}
if ($FORM{'p15q47'}) { print
MAIL "Taq DNA Polymerase
250u 1 815
105-BM-F1:
$FORM{'p15q47'}@$FORM{'p15unit47'}\n\n";}
if ($FORM{'p15q48'}) { print
MAIL "Titan One-Tube RT-PCR System
50 RT-PCR rxns
1 939 823-BM-F1:
$FORM{'p15q48'}@$FORM{'p15unit48'}\n\n";}
if ($FORM{'p15q49'}) { print
MAIL "Titan RT-PCR System
25 rxns 1 855
476-BM-F1:
$FORM{'p15q49'}@$FORM{'p15unit49'}\n\n";}
if ($FORM{'p15q50'}) { print
MAIL "Titan One-Tube PCR System
25 rxns 1 888
382-BM-F1:
$FORM{'p15q50'}@$FORM{'p15unit50'}\n\n";}
if ($FORM{'p15q51'}) { print
MAIL "Agarose MP
100mg 1 388
983-BM-M3C:
$FORM{'p15q51'}@$FORM{'p15unit51'}\n\n";}
if ($FORM{'p16q1'}) { print
MAIL "BamH I
10,000u 136S-NEB-F3:
$FORM{'p16q1'}@$FORM{'p16unit1'}\n\n";}
if ($FORM{'p16q2'}) { print
MAIL "Bgl II
2,000u 144S-NEB-F3:
$FORM{'p16q2'}@$FORM{'p16unit2'}\n\n";}
if ($FORM{'p16q3'}) { print
MAIL "Cla I
500u 197S-NEB-F3:
$FORM{'p16q3'}@$FORM{'p16unit3'}\n\n";}
if ($FORM{'p16q4'}) { print
MAIL "EcoR I
10,000u 101S-NEB-F3:
$FORM{'p16q4'}@$FORM{'p16unit4'}\n\n";}
if ($FORM{'p16q5'}) { print
MAIL "EcoR V
2,000u 195S-NEB-F3:
$FORM{'p16q5'}@$FORM{'p16unit5'}\n\n";}
if ($FORM{'p16q6'}) { print
MAIL "Hind III
10,000u 104S-NEB-F3:
$FORM{'p16q6'}@$FORM{'p16unit6'}\n\n";}
if ($FORM{'p16q7'}) { print
MAIL "Kpn I
3,000u 142S-NEB-F3:
$FORM{'p16q7'}@$FORM{'p16unit7'}\n\n";}
if ($FORM{'p16q8'}) { print
MAIL "Nco I
1,000u 193S-NEB-F3:
$FORM{'p16q8'}@$FORM{'p16unit8'}\n\n";}
if ($FORM{'p16q9'}) { print
MAIL "Pvu I
150u 150S-NEB-F3:
$FORM{'p16q9'}@$FORM{'p16unit9'}\n\n";}
if ($FORM{'p16q10'}) { print
MAIL "Pvu II
5,000u 151S-NEB-F3:
$FORM{'p16q10'}@$FORM{'p16unit10'}\n\n";}
if ($FORM{'p16q11'}) { print
MAIL "Sal I
2,000u 138S-NEB-F3:
$FORM{'p16q11'}@$FORM{'p16unit11'}\n\n";}
if ($FORM{'p16q12'}) { print
MAIL "Xba I
3,000u 145S-NEB-F3:
$FORM{'p16q12'}@$FORM{'p16unit12'}\n\n";}
if ($FORM{'p16q13'}) { print
MAIL "Xho I
4,000u 146S-NEB-F3:
$FORM{'p16q13'}@$FORM{'p16unit13'}\n\n";}
if ($FORM{'p16q14'}) { print
MAIL "Alkaline Phosphatase (CIP)
1,000u 290S-NEB-F3:
$FORM{'p16q14'}@$FORM{'p16unit14'}\n\n";}
if ($FORM{'p16q15'}) { print
MAIL "DNA Polymerase I (Klenow)
200u 210S-NEB-F3:
$FORM{'p16q15'}@$FORM{'p16unit15'}\n\n";}
if ($FORM{'p16q16'}) { print
MAIL "T4 DNA Ligase, 300W
20,000u 202S-NEB-F3:
$FORM{'p16q16'}@$FORM{'p16unit16'}\n\n";}
if ($FORM{'p16q17'}) { print
MAIL "T4 Polynucleotide Kinase
500u 201S-NEB-F3:
$FORM{'p16q17'}@$FORM{'p16unit17'}\n\n";}
if ($FORM{'p16q18'}) { print
MAIL "Vent DNA Polymerase
200u 254S-NEB-F3:
$FORM{'p16q18'}@$FORM{'p16unit18'}\n\n";}
if ($FORM{'p16q19'}) { print
MAIL "(Lambda)DNA BstE II digest
150ug 301-4S-NEB-F3:
$FORM{'p16q19'}@$FORM{'p16unit19'}\n\n";}
if ($FORM{'p16q20'}) { print
MAIL "(Lambda)DNA Hind III digest
150ug 301-2S-NEB-F3:
$FORM{'p16q20'}@$FORM{'p16unit20'}\n\n";}
if ($FORM{'p16q21'}) { print
MAIL "(Phi Chi)174 DNA Hae III digest
20ug 302-6S-NEB-F3:
$FORM{'p16q21'}@$FORM{'p16unit21'}\n\n";}
if ($FORM{'p16q22'}) { print
MAIL "RNA Cap Structure Analog
25u OS1404S-NEB-F3:
$FORM{'p16q22'}@$FORM{'p16unit22'}\n\n";}
if ($FORM{'p16q23'}) { print
MAIL "NEBuffer Pack
5ea 007-NEB-F3:
$FORM{'p16q23'}@$FORM{'p16unit23'}\n\n";}
if ($FORM{'p16q24'}) { print
MAIL "Bovine Serum Albumin
5ea 007BSA-NEB-F3:
$FORM{'p16q24'}@$FORM{'p16unit24'}\n\n";}
if ($FORM{'p17q1'}) { print
MAIL "BamH I
2,500u R6021-FPPT-F2:
$FORM{'p17q1'}@$FORM{'p17unit1'}\n\n";}
if ($FORM{'p17q2'}) { print
MAIL "Eco RI
5,000u R6011-FPPT-F2:
$FORM{'p17q2'}@$FORM{'p17unit2'}\n\n";}
if ($FORM{'p17q3'}) { print
MAIL "Hind III
5,000u R6041-FPPT-F2:
$FORM{'p17q3'}@$FORM{'p17unit3'}\n\n";}
if ($FORM{'p17q4'}) { print
MAIL "Mlu I
1,000u R6381-FPPT-F2:
$FORM{'p17q4'}@$FORM{'p17unit4'}\n\n";}
if ($FORM{'p17q5'}) { print
MAIL "Pst I
3,000u R6111-FPPT-F2:
$FORM{'p17q5'}@$FORM{'p17unit5'}\n\n";}
if ($FORM{'p17q6'}) { print
MAIL "Pvu II
1,000u R6331-FPPT-F2:
$FORM{'p17q6'}@$FORM{'p17unit6'}\n\n";}
if ($FORM{'p17q7'}) { print
MAIL "Sac I
1,000u R6061-FPPT-F2:
$FORM{'p17q7'}@$FORM{'p17unit7'}\n\n";}
if ($FORM{'p17q8'}) { print
MAIL "Sal I
2,000u R6051-FPPT-F2:
$FORM{'p17q8'}@$FORM{'p17unit8'}\n\n";}
if ($FORM{'p17q9'}) { print
MAIL "Sma I
1,000u R6121-FPPT-F2:
$FORM{'p17q9'}@$FORM{'p17unit9'}\n\n";}
if ($FORM{'p17q10'}) { print
MAIL "Stu I
400u R6421-FPPT-F2:
$FORM{'p17q10'}@$FORM{'p17unit10'}\n\n";}
if ($FORM{'p17q11'}) { print
MAIL "Xba I
2,000u R6181-FPPT-F2:
$FORM{'p17q11'}@$FORM{'p17unit11'}\n\n";}
if ($FORM{'p17q12'}) { print
MAIL "Calf Alkaline Phosphatase 1,000u
M1821-FPPT-F2:
$FORM{'p17q12'}@$FORM{'p17unit12'}\n\n";}
if ($FORM{'p17q13'}) { print
MAIL "Klenow
150u M2201-FPPT-F2:
$FORM{'p17q13'}@$FORM{'p17unit13'}\n\n";}
if ($FORM{'p17q14'}) { print
MAIL "RQ1 DNase
1,000u M6101-FPPT-F2:
$FORM{'p17q14'}@$FORM{'p17unit14'}\n\n";}
if ($FORM{'p17q15'}) { print
MAIL "SP6 RNA Polymerase
1,000u P1085-FPPT-F2:
$FORM{'p17q15'}@$FORM{'p17unit15'}\n\n";}
if ($FORM{'p17q16'}) { print
MAIL "T4 Polynucleotide Kinase
100u M4101-FPPT-F2:
$FORM{'p17q16'}@$FORM{'p17unit16'}\n\n";}
if ($FORM{'p17q17'}) { print
MAIL "T4 DNA Ligase
100u M1801-FPPT-F2:
$FORM{'p17q17'}@$FORM{'p17unit17'}\n\n";}
if ($FORM{'p17q18'}) { print
MAIL "T4 DNA Polymerase
100u M4211-FPPT-F2:
$FORM{'p17q18'}@$FORM{'p17unit18'}\n\n";}
if ($FORM{'p17q19'}) { print
MAIL "T7 RNA Polymerase
1,000u P2075-FPPT-F2:
$FORM{'p17q19'}@$FORM{'p17unit19'}\n\n";}
if ($FORM{'p17q20'}) { print
MAIL "Sequencing Taq DNA Polymerase
100u
M2031-FPPT-F2:
$FORM{'p17q20'}@$FORM{'p17unit20'}\n\n";}
if ($FORM{'p17q21'}) { print
MAIL "Taq DNA Polymerase
100u M1661-FPPT-F2:
$FORM{'p17q21'}@$FORM{'p17unit21'}\n\n";}
if ($FORM{'p17q22'}) { print
MAIL "Pfu DNA Polymerase
100u M7741-FPPT-F2:
$FORM{'p17q22'}@$FORM{'p17unit22'}\n\n";}
if ($FORM{'p17q23'}) { print
MAIL "rRNasin
2,500u N2511-FPPT-F2:
$FORM{'p17q23'}@$FORM{'p17unit23'}\n\n";}
if ($FORM{'p17q24'}) { print
MAIL "100bp DNA Ladder
250ul G2101-FPPT-F2:
$FORM{'p17q24'}@$FORM{'p17unit24'}\n\n";}
if ($FORM{'p17q25'}) { print
MAIL "pGEM Markers
50ug G1741-FPPT-F2:
$FORM{'p17q25'}@$FORM{'p17unit25'}\n\n";}
if ($FORM{'p17q26'}) { print
MAIL "(Phi Chi) 174 DNA/Hae III
50ug G1761-FPPT-F2:
$FORM{'p17q26'}@$FORM{'p17unit26'}\n\n";}
if ($FORM{'p17q27'}) { print
MAIL "(Lambda) DNA/Hind III
100ug G1711-FPPT-F2:
$FORM{'p17q27'}@$FORM{'p17unit27'}\n\n";}
if ($FORM{'p17q28'}) { print
MAIL "dNTPs (dATP, dCTP, dGTP, dTTP)
10umol(ea)
U1330-FPPT-F2:
$FORM{'p17q28'}@$FORM{'p17unit28'}\n\n";}
if ($FORM{'p17q29'}) { print
MAIL "DTT
5g V3151-FPPT-F2:
$FORM{'p17q29'}@$FORM{'p17unit29'}\n\n";}
if ($FORM{'p17q30'}) { print
MAIL "IPTG
1g V3955-FPPT-REF:
$FORM{'p17q30'}@$FORM{'p17unit30'}\n\n";}
if ($FORM{'p17q31'}) { print
MAIL "X-Gal
100mg V3941-FPPT-F2:
$FORM{'p17q31'}@$FORM{'p17unit31'}\n\n";}
if ($FORM{'p17q32'}) { print
MAIL "Proteinase K
100mg V3021-FPPT-F2:
$FORM{'p17q32'}@$FORM{'p17unit32'}\n\n";}
if ($FORM{'p17q33'}) { print
MAIL "Wizard Miniprep System
50preps A7100-FPPT-M3D:
$FORM{'p17q33'}@$FORM{'p17unit33'}\n\n";}
if ($FORM{'p17q34'}) { print
MAIL "Prime-a-Gene System
30rxns U1100-FPPT-F2:
$FORM{'p17q34'}@$FORM{'p17unit34'}\n\n";}
if ($FORM{'p17q35'}) { print
MAIL "Vector System IPGEMRT
A3600-FPPT-F2:
$FORM{'p17q35'}@$FORM{'p17unit35'}\n\n";}
if ($FORM{'p17q36'}) { print
MAIL "Wizard PLSSV
A1330-FPPT-M3D:
$FORM{'p17q36'}@$FORM{'p17unit36'}\n\n";}
if ($FORM{'p17q37'}) { print
MAIL "Bgl II (Takara)
500u
TAK 1021S-FPPT-F2:
$FORM{'p17q37'}@$FORM{'p17unit37'}\n\n";}
if ($FORM{'p17q38'}) { print
MAIL "Nco I (Takara)
250u
TAK 1160S-FPPT-F2:
$FORM{'p17q38'}@$FORM{'p17unit38'}\n\n";}
if ($FORM{'p17q39'}) { print
MAIL "Kpn I (Takara)
2500u
TAK 1068S-FPPT-F2:
$FORM{'p17q39'}@$FORM{'p17unit39'}\n\n";}
if ($FORM{'p17q40'}) { print
MAIL "Ex Taq Polymerase (Takara)
250u
TAK RR001A-FPPT-F2:
$FORM{'p17q40'}@$FORM{'p17unit40'}\n\n";}
if ($FORM{'p18q1'}) { print
MAIL "QIAprep Spin Miniprep Kit
50 rxns 27104-Q-M2D:
$FORM{'p18q1'}@$FORM{'p18unit1'}\n\n";}
if ($FORM{'p18q2'}) { print
MAIL "QIAprep Spin Miniprep Kit
250 rxns 27106-Q-M2D:
$FORM{'p18q2'}@$FORM{'p18unit2'}\n\n";}
if ($FORM{'p18q3'}) { print
MAIL "QIAGEN Plasmid Mini Kit
25 rxns 12123-Q-M2D:
$FORM{'p18q3'}@$FORM{'p18unit3'}\n\n";}
if ($FORM{'p18q4'}) { print
MAIL "QIAGEN Plasmid Midi Kit
25 rxns 12143-Q-M2C:
$FORM{'p18q4'}@$FORM{'p18unit4'}\n\n";}
if ($FORM{'p18q5'}) { print
MAIL "QIAGEN Plasmid Maxi Kit
10 rxns 12162-Q-M2C:
$FORM{'p18q5'}@$FORM{'p18unit5'}\n\n";}
if ($FORM{'p18q6'}) { print
MAIL "QIAGEN Plasmid Maxi Kit
25 rxns 12163-Q-M2B:
$FORM{'p18q6'}@$FORM{'p18unit6'}\n\n";}
if ($FORM{'p18q7'}) { print
MAIL "EndoFree Plasmid Maxi Kit
10 rxns 12362-Q-M2C:
$FORM{'p18q7'}@$FORM{'p18unit7'}\n\n";}
if ($FORM{'p18q8'}) { print
MAIL "QIAfilter Plasmid Midi Kit
25 rxns 12243-Q-M2C:
$FORM{'p18q8'}@$FORM{'p18unit8'}\n\n";}
if ($FORM{'p18q9'}) { print
MAIL "QIAfilter Plasmid Maxi Kit
10 rxns 12262-Q-M2B:
$FORM{'p18q9'}@$FORM{'p18unit9'}\n\n";}
if ($FORM{'p18q10'}) { print
MAIL "QIAfilter Plasmid Maxi Kit
25 rxns 12263-Q-M2B:
$FORM{'p18q10'}@$FORM{'p18unit10'}\n\n";}
if ($FORM{'p18q11'}) { print
MAIL "QIAquick PCR Purification Kit
50 rxns 28104-Q-M2E:
$FORM{'p18q11'}@$FORM{'p18unit11'}\n\n";}
if ($FORM{'p18q12'}) { print
MAIL "QIAquick PCR Purification Kit
250 rxns 28106-Q-M2E:
$FORM{'p18q12'}@$FORM{'p18unit12'}\n\n";}
if ($FORM{'p18q13'}) { print
MAIL "QIAquick Nucleotide Removal Kit
50 rxns 28304-Q-M2F:
$FORM{'p18q13'}@$FORM{'p18unit13'}\n\n";}
if ($FORM{'p18q14'}) { print
MAIL "QIAquick Gel Extraction Kit
50 rxns 28704-Q-M2E:
$FORM{'p18q14'}@$FORM{'p18unit14'}\n\n";}
if ($FORM{'p18q15'}) { print
MAIL "QIAquick Gel Extraction Kit
250 rxns 28706-Q-M2E:
$FORM{'p18q15'}@$FORM{'p18unit15'}\n\n";}
if ($FORM{'p18q16'}) { print
MAIL "QIAEX II Gel Extraction Kit
150 rxns 20021-Q-M2E:
$FORM{'p18q16'}@$FORM{'p18unit16'}\n\n";}
if ($FORM{'p18q17'}) { print
MAIL "DNeasy Tissue Kit
50 rxns 69504-Q-M2D:
$FORM{'p18q17'}@$FORM{'p18unit17'}\n\n";}
if ($FORM{'p18q18'}) { print
MAIL "QIAamp DNA Blood Mini Kit
50 rxns 51104-Q-M2D:
$FORM{'p18q18'}@$FORM{'p18unit18'}\n\n";}
if ($FORM{'p18q19'}) { print
MAIL "Blood and Cell Culture DNA Midi Kit
25 rxns 13343-Q-NONE:
$FORM{'p18q19'}@$FORM{'p18unit19'}\n\n";}
if ($FORM{'p18q20'}) { print
MAIL "QIAamp DNA Blood Midi Kit
20 rxns 51183-Q-NONE:
$FORM{'p18q20'}@$FORM{'p18unit20'}\n\n";}
if ($FORM{'p18q21'}) { print
MAIL "Oligotex Direct mRNA Mini Kit
12 rxns 72022-Q-M2A:
$FORM{'p18q21'}@$FORM{'p18unit21'}\n\n";}
if ($FORM{'p18q22'}) { print
MAIL "RNeasy Mini Kit
20 rxns 74103-Q-M2A:
$FORM{'p18q22'}@$FORM{'p18unit22'}\n\n";}
if ($FORM{'p18q23'}) { print
MAIL "RNeasy Mini Kit
50 rxns 74104-Q-M2A:
$FORM{'p18q23'}@$FORM{'p18unit23'}\n\n";}
if ($FORM{'p18q24'}) { print
MAIL "RNeasy Midi Kit
10 rxns 75142-Q-M2A:
$FORM{'p18q24'}@$FORM{'p18unit24'}\n\n";}
if ($FORM{'p18q25'}) { print
MAIL "QIAshredder
50 rxns 79654-Q-M2A:
$FORM{'p18q25'}@$FORM{'p18unit25'}\n\n";}
if ($FORM{'p18q26'}) { print
MAIL "Taq DNA Polymerase
250u
201203-Q-F1: $FORM{'p18q26'}@$FORM{'p18unit26'}\n\n";}
if ($FORM{'p18q27'}) { print
MAIL "Taq PCR Core Kit
250u
201223-Q-F1: $FORM{'p18q27'}@$FORM{'p18unit27'}\n\n";}
if ($FORM{'p18q28'}) { print
MAIL "Taq PCR Master Mix
250u
201443-Q-F1: $FORM{'p18q28'}@$FORM{'p18unit28'}\n\n";}
if ($FORM{'p18q29'}) { print
MAIL "HotStarTaq DNA Polymerase
250u
203203-Q-F1: $FORM{'p18q29'}@$FORM{'p18unit29'}\n\n";}
if ($FORM{'p18q30'}) { print
MAIL "Omniscript RT Kit
50 rxns 205111-Q-F1:
$FORM{'p18q30'}@$FORM{'p18unit30'}\n\n";}
if ($FORM{'p18q31'}) { print
MAIL "Sensiscript RT Kit
50 rxns 205211-Q-F1:
$FORM{'p18q31'}@$FORM{'p18unit31'}\n\n";}
if ($FORM{'p18q32'}) { print
MAIL "Effectene Transfection Reagent
1.0ml 301425-Q-REF:
$FORM{'p18q32'}@$FORM{'p18unit32'}\n\n";}
if ($FORM{'p18q33'}) { print
MAIL "Superfect Transfection Reagent
1.2ml 301305-Q-REF:
$FORM{'p18q33'}@$FORM{'p18unit33'}\n\n\n\n\n\n\n\n";}
print MAIL "\n___________________________________________________________________________\n\n\n\n";
print MAIL " --- END --- \n\n";
| NSC Supply Home Page | GSU Home Page | Biology Dept | Chemistry Dept | Safety & Risk Mgmt Dept |