#!/usr/bin/perl
use Getopt::Declare;

my $args = new Getopt::Declare <<'EOPARAM';

    -v  <value> 
    -k  <value> 

EOPARAM

for ( qw(-v -k) )
{
    print  "Using value: ", $args->{$_}."\n"
        if $args->{$_};
}