Select Code to Download

use strict;
use Data::Dumper;
...
$dat{a} = sprintf("%5.2f", 3.141);
$dat{b} = sprintf("%20s","hello");
print Dumper %dat;

use strict;
use Data::Dumper;
...
print Dumper %dat;

This way formats can easily be controlled in a central place.