Help for this page
use strict; use warnings; ... } print join "\n", map {"$_ => $INPUT{$_}"} sort keys %INPUT;
xxx1 => val1 xxx2 => val2 xxxc => 2