Here's your code with corrections.

open FILE, '< /path/to/storedata.txt' or die $!;
open OUTP, '> /path/to/exporteddata.txt' or die $!;
my $StoreNum = (split ' ', <FILE>, 2)[0];
while (<FILE>){
    chomp;
    print OUTP $_, ' ', $StoreNum, $/ or die $!;
}
close OUTP or die $!;
close FILE or die $!;
[download]

After Compline,
Zaxo

I'm glad this isn't your exact code, because it isn't even perl. If you want help with code, you should really post your code along with some sample data you are trying to parse. If I read your explanation right though, you want something like this:

open(FILE, "<storedata.txt");
open(OUTP, ">exporteddata.txt");
chomp(my $storenum = <FILE>); # get the storenum
while(<FILE>) {
    print OUTP "$storenum $_";
}
close(OUTP);
close(FILE);
[download]

Thanks for the input guys, a few minutes after i posted this question, I thought of a new way to look at the problem. Here is my finished code. Not real pretty, but it works

sub indextime{       
        open FILE, "<storedata.txt";
    open OUTP, ">exporteddata.txt";
    select STDOUT;
    while (<FILE>){
    push @matrix, [split];
    }
#    print $matrix[0][0];
    $storenum = $matrix[0][0];
    $date = $matrix[0][1];
    @matrix[0] = undef;
    @matrix[1] = undef;
    @matrix[2] = undef;
    @matrix[3] = undef;

    
    select OUTP;
    for $i (6.. ($#matrix-1)){
    print "@{$matrix[$i]} $storenum $date\n";
    
    }
[download]

This did exactly what i wanted it to do. After i got it to read the storenum, i had it read the date as well, which happened to be the second field on the first row. It then skipped the junk lines and wrote only what i needed to the new file. I'd like to thank everyone for helping me with my attempt at a question :) Nadadogg

It's good that you have a working version now. There are some things you could improve, though:
• use strict;!!
• more flexibility through non-hard coded filenames
• error checking on opening files
• localising $_
• eliminate select statements

So an improved version of your sub would look like this:

sub indextime {
  my ($infile, $outfile) = @_;
  open my $in, '<', $infile or die "Couldn't open $infile for reading:
+ $!";
  open my $out, '>', $outfile or die "Couldn't open $outfile for writi
+ng: $!";

  my @matrix;
  local $_;
  push @matrix, [split] while <$in>;

  my ($storenum, $date) = @{$matrix[0]}[0,1];
  print $out "@{$matrix[$_]} $storenum $date\n"
    for 6..$#matrix-1;

  close $in  or die $!;
  close $out or die $!;
}
[download]

-- Hofmator

while (<DATA>) {
.
.
.
}
[download]

--hsm

The way I read your question, I thought that you meant that your data was comma delimited rather than space delimited in which case you would need to substitute join',',<FILE> for the corresponding piece of Zaxo's code.

      my  $nm = 1;
      my $storenum;
      open (Conten  , "a.dat");
      open (OUTP ,">storenums.dat");

      while (<Conten>){
          chomp;
          (defined $nm) ? $storenum = split('',2):
                          print OUTP "$_$storenum\n"; 
          undef $nm;
      }
[download]