#!/usr/bin/perl -w
use strict;
use CGI;

my $q = CGI->new();
my @pairs = $q->param('Blah[]');
for (@pairs) {
    print "Blah: $_<br />\n";
};