my $index;
for ( 0 .. $#csvlist ) {
    if ( $csvlist[$_] =~ /$x/ ) {
        $index = $_;
        last;
    }
}

use List::Util 'first';
my $index = first { $csvlist[$_] =~ /$x/ } 0 .. $#csvlist