Do you need the number in the same order as in the input? If not, you can just

for my $num (keys %users) {
    print "The details for number $num are user:$users{$num}[0], comme
+nts: $users{$num}[1]\n";
}
[download]