# globale Definition der Kommando-Pfade
my %cmd = (
  unrar => '/path/to/unrar',
);

# globale Definition von Optionen pro Kommando, die immer gelten sollen
my %opts = (
  unrar => [ 'x' ],
);

# ....

# Definition der Entpack-Routine
sub unrar {
  my $archive = shift;
  my $pass    = shift;

  if ( !exists $cmd{unrar} ) {
    die "No path to unrar is defined in \%cmd\n";
  }
  elsif ( not -x $cmd{unrar} ) {
    die "$cmd{unrar} is not executable\n";
  }

  my @cmd = (
    $cmd{unrar},
    # wenn globale Optionen definiert sind, nutze sie
    ( $opts{unrar} ? @{$opts{unrar}} : () ),
    # -pPASSWORD wird nur genutzt, wenn ein Passwort angegeben wurde
    ( defined $pass ? "-p$pass" : ()),
    $archive
  ); 

  return system(@cmd);

}

# ...

chdir($where_to_store_archive_content) or die "chdir failed: $!\n";
unrar( $archive_path, $password )      or die "unrar failed for '$archive' : $!\n";