for $varpart ( 54000  .. 55120) {
   open FILE,">c:/A$varpart.min" or die "c:/A$varpart.min error $!"; 
   close FILE;
}