use Modern::Perl;
use IO::Compress::Zip qw(zip $ZipError) ;

my %files;

my @files = <*.txt *.docx>;

for (@files) {
    next unless /^(\d+.\d+.\d+.\d+)/;
    push @{ $files{$1} }, $_;
}

for my $ip ( keys %files ) {
    do { print "Zip $ip -> $_" }
      for @{ $files{$ip} };
}