my @sorted_list = 
	map { $$_[0] }
	sort { $$a[1] cmp $$b[1] }
	map { [ $_, do{
		my $tmp = join "\x00", (split /\t/)[3,4];
		$tmp =~ s/(^|\x00)\s+/$1/g;$tmp } ]
	} @database_in;