sub do_dni { my ( $filename ) = @_; print "dni: $filename\n"; } sub do_sni { my ( $filename ) = @_; print "sni: $filename\n"; } my %dispatch = ( 'DNI' => \&do_dni, 'SNI' => \&do_sni, # etc. ); foreach my $fn ( @filenames ) { while ( my ( $pattern, $sub_ref ) = each %dispatch ) { $sub_ref->($fn) if ( $fn =~ /$pattern/ ); } }