Try this:

my @high = grep { m/\s(\d+)\%/ and $1 >= 90 } @array;
[download]