#!/usr/bin/perl

use URI;

my $ORIG = "http://myurl.com/page.pl?key1=va1&key2=val2&key3=val3";

my @value = qw(AAA BBB CCC DDD);

my $u = URI->new($ORIG);
my %params =  $u->query_form;

for my $newvalue (@value) {
  for my $key (sort keys %params) {
    my %p = (%params, $key, $newvalue);
    $u->query_form(%p);
    print "$u\n";
  }
}
[download]

-- Randal L. Schwartz, Perl hacker