#!/usr/bin/perl -w
#!c:/perl/bin/perl -w

sub returnValues {
  my($target, @values) = @_;
  my(@results);
  
  foreach(@values) {
    $_ > $target ? push(@results, "$_ ") : "";
  }
  return @results;
}

@myNumList = (33, 35, 67, 11, 78, 99, 23, 55);
print "Content-type:text/html\n\n";
print returnValues(50, @myNumList);