{$line=$lin.",".$short;}   # Oops, $lin should be $line