# Typo?
if($Phonenumber=!/^[6-9]+\d/)

# Fixed, but...
if($Phonenumber !~ /^[6-9]+\d/)