@old_names = (
   22200010001, 22200010101, 22200010102, 22200010103, 22200010201
);

foreach (@old_names) {
   my $old_name = $_;
   my $new_name = $_ - 9900;

   ... do something ...
}