Help for this page
if ( length($rfile) > 0 ) { foreach $item (@clean){ ... $output[++$#output] = $item; } }