Shell Programming and Scripting

$ for i in x{1..3}; do echo $i; done > x.dat
$ for i in y{1..4}; do echo $i; done > y.dat
$ for i in p{1..12}; do echo $i; done > p.dat

$ perl -nle '
        use integer;

        push @{$h{$ARGV}}, $_;

        END {
                $i=0;
                $fmt = "%10.10s";
                foreach $key ( sort { $#{$h{$a}} <=> $#{$h{$b}} } keys %h) {
                        $c[$i++] = $h{$key};
                }
                
                $j=$#{@c[2]}+1;
                $k=$#{@c[1]}+1;
                $l=$#{@c[0]}+1;
        
                for($i=0, $x=0, $y=0; $i<$j; $i++) {
                        printf $fmt, $c[0][$x+($i*$l/$j)]; 
                        printf $fmt, $c[1][$y++]; 
                        printf "$fmt\n", $c[2][$i];
                        $y=0 if ($y>=$k) ;      
                }
                print "\n";
        }

        ' p.dat y.dat x.dat
        x1        y1        p1
        x1        y2        p2
        x1        y3        p3
        x1        y4        p4
        x2        y1        p5
        x2        y2        p6
        x2        y3        p7
        x2        y4        p8
        x3        y1        p9
        x3        y2       p10
        x3        y3       p11
        x3        y4       p12

join -j 2 -o 1.1,2.1 x.dat y.dat |paste -d' ' - p.dat

exec 3<p-values.dat
while read X
do    while read Y
    do    read P <&3
        echo "$X $Y $P"
    done < y-values.dat
done < x-values.dat
exec 3>&-