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