perl -ne '@arr=split;;printf "%-20s\t%-20s\t%-20s\n",$arr[0],$arr[1],($.==1)?"Scaling factor":$arr[0]/$arr[1]' filename