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

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

    print Dumper $this;

    die (0);
    return $this;
}

##</code><code>##

$VAR1 = bless( {
                 'dirty' => {
                              'a' => 1,
                              'b' => 2
                            },
                 'clean' => $VAR1->{'dirty'}
               }, 'Edges' );