view_quote.pl: Use of uninitialized value in string ne at C:\scripts\view_quote.pl line 147.

##</code><code>##

use Finance::YahooQuote;
my @quotes = getcustomquote(["$symbol"], # using custom format
                           ["Float Shares"]); 

my $found=0;

foreach (@quotes) {

$found++;
if ($found > 1) { print "Only one stock symbol to view allowed."; die; }

my $float;
	if (${$_}[1] ne "") { 
		if (${$_}[4] ne "") { $float = "${$_}[1],${$_}[2],${$_}[3],${$_}[4]"; }
			else    { $float = "${$_}[1],${$_}[2],${$_}[3]"; }
						} else { $float = "n/a"; }

print "$symbol Float Shares: $float";
}
unless ($found) { print "No quote info. for symbol: $symbol"; } 

##</code><code>##

		if (${$_}[4] ne "") { $float = "${$_}[1],${$_}[2],${$_}[3],${$_}[4]"; }