$stuff_to_print .= qq(<li>$_</li>\n) for( 1 .. $num );
return $stuff_to_print;