in reply to passing vars to a sub

Instead of
get_status("@SERVERS[$rev_srv_num{$SERVER}]->[2]","$SERVER");
you probably want
get_status($SERVERS[$rev_srv_num{$SERVER}][2],$SERVER);
You also would do well to read How (Not) To Ask A Question.