sub rj {
# right justifies each argument with a length of first parameter
  my $len= shift;
  my $str='';
  while (@_) {
    $str.= substr(' 'x12 . shift @_), $len);
  }
  return $str;
} 

print rj(12, @d); #prints data in columns of length 12