#! /usr/bin/perl
$counter = 1;  # previous num
$number = 2;   #the current op

print "\nWe start at the 3rd element!\n\n";
for($i = 3; $i < 43; $i++)
{
	$temp = $number + $counter;
	print "$i .)  $temp \n";
	$counter = $number;
	$number = $temp;
}