Field names and NEW

Greetings to everyone on the list

I am attempting to write a system which would copy primary key values
to another table after insert. To achieve this, I wrote a trigger
function in Perl. I also wanted to make the function reusable, so the
fields included in the query are passed as function arguments. Here
is the code:

CREATE OR REPLACE FUNCTION ModifyInsert () RETURNS TRIGGER AS $$
my $fieldnames = '';
my $fieldvalues = '';
my $mTablename = $_TD->{args}[1];

for (my $i = 2; $i < $_TD->{argc}; $i++)
{
my $currentName = $_TD->{args}[$i];
$fieldnames .= ", \"$currentName\"";
$fieldvalues .= ", '$_TD->{new}{$currentName}'";
}

my $query = "INSERT INTO $mTablename (pgts_modification_type
$fieldnames) VALUES ('I' $fieldvalues)";
spi_exec_query ($query);
return;
$$ LANGUAGE PLPERL;

However, I would rather use PL/PgSQL, since the Perl interpreter
might not be installed by default. Is there a way to access the NEW
record without knowing the field names in advance?

--
Best regards,
Tuukka Norri