perl -le "for$x(0..7){for$y($x+1..7){$f[$x][$y]=$f[$y][$x]=int rand 100}}
$f[$_][$_]='-' for 0..7; print join' ', @$_ for @f"