open <FILE>, "<storedata.txt";
open <OUTP>, ">exporteddata.txt";
$StoreNum = @line[0], @field[0];
@line[0] = undef;
select <OUTP>;
while (<FILE>){
push @line,$StoreNum;
print ;
}