use Getopt::Long;

GetOptions( "e=s"   => \$param1,
            "m"  => \$param2
          );

./script.pl -e <STRING> 

und so

./script.pl -e <STRING> -m

if(!$param1)
{
        usage();
        exit(1);
}

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

GetOptions('e=s' => \my $param1,
               'm'    => \my $param2,);

if($param1){
    print 'Option e gesetzt: ',$param1,"\n";
}

if($param2){
    print "Option m gesetzt\n";
}

C:\community>perl getopt.pl -e test
Option e gesetzt: test

C:\community>perl getopt.pl -e test -m
Option e gesetzt: test
Option m gesetzt

#foreach my $array ( @{$arrayRef} )
#{
#       if($param2) {
#               my @result=();
#               while ($array->[1] =~ /Match/igm) {
#                       push @result, $1. " --> " .$2. "\t";
#               }
#               printf "%-90s :  %-s\n", $array->[0], join(" ",@result);
#       }else{
#               print "$array->[0]\n", "${$array}[1]\n";
#       }
#}

sub ausgabe1 {
        foreach my $array (my @{$arrayRef} ) {
                print "$array->[0]\n", "${$array}[1]\n";
        }
}

usw.

if($param2) {
        ausgabe2(@{$arrayRef});
}
else {
        ausgabe1(@{$arrayRef});
}

sub ausgabe1 {
       my @array = @_;
       foreach my $element (@array ) {
               print $element->[0],"\n", $element->[1],"\n";
       }
}