open $FORM, '>', 'column.FORM' or die $!;;
@c = (1.2, 1.3, 1.4, 1.5); 
$t = '%10s'x@c . "\n"; 
printf( $FORM $t, @c );;

close $FORM;;
^C
C:\test>type column.FORM
       1.2       1.3       1.4       1.5