sub new {
    my ($class, $hash) = @_;

    my $this  = {};
    bless($this, $class);
  
    $this->{clean} = $hash;
    $this->{dirty} = \%orig_graph;

    print Dumper $this;

    die (0);
    return $this;
}