my @LINES = <ORDERFILE>;
my $filedata = join '',@LINES;