Mal mit Data::Dumper angeschaut, was in @order steht (nach der while-Schleife)? Lass Dir mal $line innerhalb der while-Schleife ausgeben und schau Dir's an, ob es korrekt ist...