$totalStores = 3;
$store = "asdfddddd";
for ($num = 1; $num <= $totalStores; $num++){
open (STOREINV, "$store${num}.txt");
my @store = ;
$allStores[$num] = \@store;
}
for ($x=1; $x<= $totalStores; $x++){
$invRef = $allStores[$x];
for ($i=0; $i <= $#$invRef; $i++){
print "$$invRef[$i] ";
}
print"\n";
}