...
use Clone qw(clone);
...
sub first_thing {
    my($class) = @_;
    return clone($hash_thing);
}