just giving an advice you can use this

if $regex($1,/^sum(onning|o|on)$/Si) { return Summoning } 
 if $regex($1,/^f(m|ire|iremaking)$/Si) { Return Firemaking }
if $regex($1,/^h(p|its|itpoints|it)$/Si) { Return Hitpoints }
 if $regex($1,/^R(anged|ange)|Arche(r|ry)$/Si) { Return Range }
if $regex($1,/^mag(e|ic)$/Si) { Return Magic }
if $regex($1,/^def(end|ence)$/Si) { Return Defence }
if $regex($1,/^pra(y|yer|ying)/Si) { Return Prayer }