use MD5;
my $MAC = MD5->hexhash( $secret.
MD5->hexhash(join '', $secret, @fields)
);