my @input=('a','b','c','d');
my $char='b';
# --------------
my $pos = -1;
ELM: for ( my $i = 0; $i <= $#input; $i++ ) {
    if ( $char eq $input[$i] ) {
        $pos = $i;
        last ELM;
    }
}