#!/usr/bin/perl
use strict;
use warnings;

my @value;
my $col_count = 0;

while (<>) { # read from @ARGV (sample.txt sample_2.txt sample_3.txt)
    chomp;
    my (undef, @data) = split /:/;
    
    my $row_count = 0;
    
    for my $info (@data) {
		$value[$row_count++][$col_count] = $info;
    }
    ++$col_count;
}

for my $v (@value) {
	print join(" ", @$v), "\n";	
}