open (RESULTS, "<$tempfile") or die "Can't open results: $!";
    while(<RESULTS>){
       chomp;
       push @results, $_;
       print "$. $_\n";
    }