use strict;
use Data::Dumper;

my %dat;
$dat{a} = sprintf("%5.2f", 3.141);
$dat{b} = sprintf("%20s","hello");
print Dumper %dat;