sub infile {
        open $file "< $file" or die "Cannot open \"$file\"\n$!";
        while (! eof($file)) {
                print "Find out how to read the input file and store each object on a line in an array\n";
        }
}