Use of uninitialized value in division (/) at F:\scripts\phi.pl line 28. Use of uninitialized value in division (/) at F:\scripts\phi.pl line 28. Illegal division by zero at F:\scripts\phi.pl line 28. #### use strict; use warnings; my @list; my $a=1; my $b=1; my $c=0; for(my $i = 0;$i < 10;$i++){ $c=$a+$b; $a=$b; $b=$c; push @list, $c; } my $Evens = -2; my $Odds = -1; my $Interval = 2; for(my $i = 0;$i < 10;$i++){ $Odds += $Interval; $Evens += $Interval; print( ($list[$Odds] / $list[$Evens]) . "\n"); }