my (@Computers=(<IN>); #Do this
#while (my $computer=<IN>) {           #change this
while (my $computer=pop @Computers) {  #to this