in reply to Useless use of string eq
In addition - you can achieve this assignment in one step:
$cust = (split(/-/, $ARGV[1]))[1];
In Section
Seekers of Perl Wisdom
in reply to Useless use of string eq
$cust = (split(/-/, $ARGV[1]))[1];