if ( length($rfile) > 0 ) { foreach $item (@clean){ $continue = index($item, $rfile); if ( $continue == 0 ) { $output[++$#output] = $item; } }