my $file = 'oratabtest.txt'
open FILE, "< $file" or die;
my @lines = <FILE>;
open FILE, "> $file" or die;