perl -pale 'print $F[0]; ($p) = ; s/^/$p /' test.list