Help for this page
use warnings; use strict; ... $out .= sprintf $format , $_ , $p{ $_ } } print $out;