#!/usr/bin/env perl 
use strict;
use warnings;

my $id                 = 'foo';
my $Record_Lock        = 'bar';
my $Record_Change_Date = 'baz';

my @elements = (
    {name => 'id',                 value => $id                },
    {name => 'Record_Lock',        value => $Record_Lock       },
    {name => 'Record_Change_Date', value => $Record_Change_Date} 
);

for my $elem (@elements) {
    print "Elem name $elem->{name} has value $elem->{value}\n";
}