theo.pl

#!/usr/bin/env perl
use Mojo::Base -strict, -signatures;
use Data::Dump qw/pp/;

say pp diffhash( { map { $_ => 1 } 1..30 }, { map { $_ => 1 } 20..60 } );

sub diffhash($h1, $h2) {
    my ($h1p, $h2p) = ({%$h1}, {%$h2});

    for (keys %$h1) {
        if ( exists $h2->{$_} ) { 
            delete $h1p->{$_};
            delete $h2p->{$_};
        }
    }   

    return $h1p, $h2p;
}