# Untested code
my @replacements = ( ... );
while (<>) {
    my $i = 0;
    1 while s/\d{5}/$replacement[$i++]/;
}