Unfortunately, there's no way using CGI.pm to do this alone (Though a module like HTML::TableLayout might be able to do it.).

However, you can sorta clean up this code with:

@widths = ( 15, 40, 25, 30 );
print map { td({width=>'$widths[$_]%'}, $col[$_] } (0..3);
[download]

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important