sub is_useful;

open $fh, '<', 'purr' or die "Sad kitty: $!";
my @useful_things = ();
while(<$fh>){
    push @useful_things if is_useful( $_ );
}