#!/usr/bin/perl -an

# luo.pl - luo tekstimuotoisesta osaamismatriisista
#	henkilökohtaiset tiedostot

BEGIN {
	open($h[$_], ">", $_) for 1..14
}

printf { $h[$_] } "%-30s  %s\n", $F[0], $F[$_] for 1..14

# Lopuksi
#  rename '' '0' ?
#  for i in ??; do mv $i `head -1 $i | awk '{print ENVIRON["i"]"_"$2}'`; done