sub _archive {
   my ($self, $store_file) = shift;
   
   # rest of code...
   
}