% perl -n -e 'sub f{map{push@_,shift;"@_"}@_}push@b,f split;END{$,="\n";print sort@b}' filename