Select Code to Download

use 5.010;
 ...
...
    $params{cheese} //= '-- bad cheese --'; # Provide cheesy default
    print "Cheese: $params{cheese}\n";
}

@params{qw(cheese country state town)} = @parts;