my @array = map { defined $_ ? $_ : '' } @array[0..$last];

##</code><code>##

use Finance::YahooQuote;

# only use the first anon. array returned
my( $quote ) = getcustomquote([ $symbol ], ["Float Shares"]); 

# stop if we didn't get back something
die "No quote info. for symbol: $symbol" unless ref $quote;

my $float = $quote->[1] ne "" ? join( ",", @$quote ) : "n/a";
	
print "$symbol Float Shares: $float";