if (-e $ARGV[0]) 
{ 
        #open file for iteration 
        open(f, $ARGV[0]) or die("Could not open file"); 
 
        #iterating... 
        $i = 0; 
        @hashes = (); 
        %graph = (); 
        $first = 1; 
        while(f) 
        { 
                #read lines from file 
                $line = readline(f); 
                #check for ##*-------- line 
                #if in the graph section set the hash values 
                #and set the hash in the array 
                if($line =~ m/^#\*+-/) 
                { 
 
                } 
                else 
                { 
                        #print "setting in hash\n"; 
                        $inhash = 1; 
                } 
 
                if($inhash) 
                { 
                        $graph{"$linenumber"} = $line; 
                        $linenumbers++; 
                } 
        } 
} 
else 
{ 
        die("cannot find file"); 
} 
close(f); 
print "@hashes\n";