Ah, have you heard of loops and regular expressions? One way.....

for (@ary) {
    print if m/\s(\d+)%/ and $1 >= 90;
}

# as a one liner
perl -ne 'print if m/\s(\d+)%/ and $1 >= 90' infile > outfile
[download]

If 99.5% is a valid value you need to replace \d+ with [\d\.]+