perl Graph