my $index;
until ( $ARGV[++$index] eq '-f' ) { # Alle durchgehen und vergleichen.
   # irgendwas mit den anderen Parameter tun, falls nötig
}
my $gesuchter_paramter = $ARGV[$index];