my $useful_object = Useful::Class->new;

$useful_object->$_($cgi->param($_))
    for qw( param1 param2 param3 );