use strict;
use Data::Dumper;

my $a = 5;
my $b = 6;

my $thing = {
    a => $a,
    b => $b,
};

print Dumper($thing) . "\n";