in reply to Avoiding "only one reference" warnings

What you want is to disable the offending warning message. This can be accomplished like so:

#!/usr/bin/perl + use warnings; no warnings qw /once/; use strict;

Notice that you can't use -w because it is all or nothing, you must use the "use warnings" syntax if you want to be able to disable individual warning messages.

Check out perllexwarn.

HTH