use strict; use warnings; use feature 'say';

my $filename = $ARGV[0] or die "You must supply a filename";
-f $filename or die "You must supply the name of a file that exists!";

open my $IN, '<', $filename or die "Can't open < $filename: $!";

my @col9;

while ( my $line = <$IN> ) {
    chomp $line;
    push @col9, (split / /, $line)[8];
}

close $IN or die "Can't close $filename: $!";

foreach my $test ( 1, 9, 42, 666 ) {
    my $count = scalar grep { $_ >= $test } @col9;
    say sprintf "%d values were >= %d", $count, $test;
}

__END__