print "Number entered is : $input\n";
print "User for the number $input is: $users{$input}[0]\n";
print "Comments for the number $input is: $users{input}[1]\n";