#!/usr/bin/perl -w


 
for ($i=0;$i<5;$i++){
        for($j=0;$j<5;$j++){
                $poskus[$i][$j]=$i+$j;
        }
}

for ($i=0;$i<5;$i++){
	for($j=0;$j<5;$j++){
		print "	$poskus[$i][$j]|";
	}
	print "\n";
}