#!/usr/bin/perl -w

for($length=5;$length<=25;$length++)
{
	for($girth=5;$girth<=25;$girth++)
	{
		print $length."_".$girth.": ". (3.14*(($girth/3.14/2)**2)*$length) ."\n"
	}
}