my @data = qw/ 1 1.01 2.49 3.48999 3.5001 /;
printf "%s => %0.2f\n", $_, $_ for @data;