my ($match,$index) = findone { $_ > 100 } @nums ;
my $matchonly = findone { $_ > 100 } @nums ;