Would using printf solve your problem?:

#!/usr/bin/perl -w
use strict;
my @values=( [1, 'A', 12], [2, 'B', 126], [3, 'C', 1000]);

foreach my $row (@values)
  { printf( "%-02d    %2s   %7.2f\n", @$row); }
[download]