# instead of
# sub print_graph
# try this
sub print_graph (\@\@$$)