Select Code to Download

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

use Finance::YahooQuote;

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