sub test
{
    my $x1 = shift;
    my %x2 = %$x1;

    return %x2;
}