my @numbers = ( -1.22, 47.11, 42, 13.5, 10000.2, -213);

for (@numbers) {
     $_ = sprintf "%9.2f", $_;
}

print "$_\n" for (@numbers);