A bit more Perlish way of getting the data into your variables is:

use Modern::Perl;
use LWP::Simple;
use HTML::TableExtract;

my $money = get("http://finance.yahoo.com/q/ks?s=MNDO+Key+Statistics")
+;
my $p = new HTML::TableExtract();
$p->parse($money);

my $table = $p->table(2,9);

my ($fdr, $fdy, $tdr, $tdy, $fyay, $pr, $dd, $edd, $lsf, $lsd) = map{$
+table->cell($_,1)} (1 .. 10);

say $fdr;
[download]

Note that you also had an "off by one" error in your loop. The "Forward Annual Dividend Rate" is cell 1, 1 and not 0, 1.