Help for this page

Select Code to Download

Select or download this
```
&find (‘Q', @fsg)
```

Select or download this

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