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;
      }