in reply to Useless use of string eq
$cust = (split(/-/, $ARGV));
That may admit bogus customers that don't exist, or that the program cannot deal with. It may be wiser to spell out exactly what is legal.
(my $cust = $ARGV) =~ s/^-(SMC|SBM|FET|China)$/$1/
or die "garbage in second arg: <$ARGV>\n";
• another intruder with the mooring in the heart of the Perl
www.com | www.net | www.org
Hope and Pray
Hash & Salt using Acme::XKCD::DebianRandom
Hash & Salt using other rng algorithms
Printouts secured with physical locks
One of a million Post-Its sticking on the monitor
A piece of paper taped to the backside of the keyboard
Results (63 votes). Check out past polls.