bin/ajoke-get-hierarchy.pl: fix for new version of perl?

Signed-off-by: Bao Haojun <baohaojun@gmail.com>