while (my($n,$v) = each %input) { print "$n: $v
"; }