&find (‘Q', @fsg)

##</code><code>##

sub find {
    my ($needle,@hay) = @_;
    my $position = 1;
    my %haystack = map { $_ => $position++ } @hay;
    return $haystack{ $needle }
};