Array Perl

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