open (IN, "<$ARGV[0]") || die ("Cannot open $ARGV[0]: $!");
@MyData = <IN>;
use strict; use warnings; use feature 'say';

my @col9 = map {(split)[8]} <IN>;

foreach my $test (2,3,4,5,6,7,8,9) {
	my $count =scalar grep {$_ >= $test} @col9;
	say sprintf "%d values were >= %d", $count, $test;
}